controlar acceso de usuarios ACCES

[citaem]

hOLA MUCHACHOS, tengo un formulario de acces, con una tabla de usuarios(usuario, password) unicamente quiero que compare del formulario contra esta tabla y si existe el usuario lo defe entrar a mi formulario FrmRegistrosProveedores, no se visial basic... tengo algo aproximado... ¿me lo pueden complementar?, le doy click a mi boton y no hace nada...}

Private Sub btnIngresar_Click()
Dim us As String, pass As String

MsgBox "adentro"

us = TxtUsu.Text
pass = TxtPassword.Text

'Adodc1.Recordset.MoveFirst

'While Not Adodc1.Recordset.EOF
If us = "Hola" Then
If pass = "Mundo" Then
Unload Me
Load FrmRegistrosProveedoresAdmon
Else
MsgBox "Usuario o contraseña incorrectos. Vuelva a intentarlo."
TxtUsu.Text = ""
TxtPassword.Text = ""
End If
End If
Adodc1.Recordset.MoveNext 'sino nos da un bucle infinito...
'Wend
End Sub