ok intenta con este código..
Código:
Dim db As Connection
Dim adoPrimaryRS As Recordset
Set db = New Connection
Set adoPrimaryRS = New Recordset
db.CursorLocation = adUseClient
db.Open BasePath ' aqui colocas tu conexión..
adoPrimaryRS.Open "SELECT * from empleados where id_empleado = " & Me.txtUserName.Text & " ", db, adOpenStatic, adLockOptimistic
If adoPrimaryRS.BOF = False Then
If adoPrimaryRS!contrasena = Me.txtPassword.Text Then
MsgBox "Bienvenido " & adoPrimaryRS!Nombre & " " & adoPrimaryRS!APELLIDO, vbInformation, "Loggin"
End If
Else
MsgBox "El usuario no existe intente de nuevo", vbCritical, "Loggin"
End If
adoPrimaryRS.Close
si te das cuenta txtusername es el codigo del usuario entonces se hace la consulta en base a ese usuario tal como te decía...
espero te sirva el código... dependiendo si el codigo es numérico o bien es texto si el codigo es texto sería asi... la conexión
Código:
adoPrimaryRS.Open "SELECT * from empleados where id_empleado = '" & Me.txtUserName.Text & "' ", db, adOpenStatic, adLockOptimistic
de contrario si es número es como está en el ejemplo...
bueno una leve explicación de como se hace lo que estas pretendiendo...