controlar acceso de usuarios ACCES

[franko1809]

Hola citaem mas o menos deberia ser asi, espero te sirva de algo aunque veo que utilizas el cotrol ADODC pero seguro te da una idea, lo mejor seria que utilizes recordsets en lugar del control adodc1 aunque de ambas formas funciona.

Código vb:

Set rsUser = New Recordset
rsUser.Open "SELECT coduser,nomuser,password FROM usuario WHERE NomUser='" & Trim(txtUsu.Text) & "'", conex, adOpenStatic, adLockOptimistic
 
If rsUser.EOF = False And rsUser.BOF = False Then
 
      If rsUser("Password") = txtPassword Then
         'INGRESA
      Else
         MsgBox "La contraseña no es correcta, verifique los datos."
      End If
Else
      MsgBox "El usuario no existe, verifique los datos."
End If