Visual Basic - VALIDAR USUARIO Y CONTRASEÑAS

NECESITO VALIDAR USUARIO Y CONTRASEÑA DESDE UN FORMULARIO DE ENTRADA EN UNA TABLA DE ACCESS CONTENEDOR DE USUARIO Y CONTRASEÑAS

Suponiendo que utilices DAO 3.51 o 3.60 para acceder a la base de datos, se deberia llamar a la siguiente funcion segun este ejemplo:

Private sub cmdAceptar_Click
If ValidarUsuario(txtUserName.Text, txtPassword.Text) Then
' Escribir el codigo siguiente a la validacion correcta...
Else
' Advertir el login incorrecto...
Msgbox ("Error al iniciar sesion")
End If
End Sub

Function ValidarUsuario(byval sUser as string, sPassword as string) as Boolean

Dim sDBPath as string
Dim oDB as database
Dim rstAux as recordset

sDBPath = "c:\datos\datos.mdb" ' Asumiento que esta es la ruta de la base de access..

Set oDB = Opendatabase(sDBPath)
Set rstAux = oDB.OpenRecordset("Select * From Usuarios Where UserName='" & sUser & "'")

If rstAux.RecordCount = 0 Then
' No existe el usuario
ValidarUsuario = False
Else
If rstAux!Password = sPassword Then
' Validacion correcta
ValidarUsuario = True
Else
ValidarUsuario = False
End If
End If

End Function

Cuando selecciones el proveedor, Microsoft jet 4.0 por ejemplo y la BD, anda a la última pestaña, hay un item que dice System Database. Ahí debes poner el path del archivo .mdw que usa Access para acceder a una BD. Por defecto, hay distintos usuarios como Admin. Crea un nuevo usuario con todos los privilegios y sácales los privilegios a los usuarios por defecto. Así nadie podrá editar tu BD ni siquiera desde Access.
Exitos.