Visual Basic - usuarios

hola a todos

tengo una tabla en acces con una lista de usuarios, lo que quiero es que a la hora de entrar a la aplicacion en VB, me pida el nombre de usuario y la contraseña, ya intente hacerlo pero no he podido, lo intento de esta manera no se si este bien, les agradeceria si me ayudaran a corregir este codigo, o a darme otra idea de como pudiera hacerlo.
GRACIAS

Private Sub cmdentrar_Click()
call busca
If txtusuario.Text = usua And txtpass.Text = pas Then
frmprincipal.Show
Else
MsgBox ("Verifique que su nombre y contraseña sean las correctas")
end sub

Sub Busca()

Mitabla.MoveFirst

Mitabla.FindFirst "ucase(usuario)='" & UCase(txtusuario.Text) & "'"
usua = Mitabla.Fields!usuario

Mitabla.FindFirst "ucase(clave)='" & UCase(txtpass.Text) & "'"
pas = Mitabla.Fields!clave

End If

If Mitabla.NoMatch = True Then
MsgBox "Este Registro no existe", vbInformation, "Error"

estado = Not (False)
Mitabla.MoveLast
Exit Sub
End If

End Sub

Saludos!!!

Primeramente debes de hacer que el fomulario de inicio de sesion que estas utilizando sea el de arranque, si ya tienes esto, simplemente tienes que hacer una consulta a la bd.

puedes hacerlo de la siguiente forma:

' Variables puestas en el formulario de inicio de sesion.
Dim MyBase as DataBase
Dim MyRegistro as Recorset
Dim Qry as String

private sub Form1_load()
set MyBase=OpenDataBase(ruta_BD)
end sub

private sub cmdAceptar_click()
Qry="Select Usuario From MyTabla Where Usuario='" & txtUsuario & "' And password='" & txtPassWord & "'"

set MyRregistro=MyBase.OpenRecordSet(Qry,2)

if Not MyRegistro.EOF then
Msgbox "Usuario Encontrado"
else
Msgbox "Usuario no encontrado o PassWord Incorrecto"
end if
MyRegistro.close
set MyRegistro=Nothing
end sub

bueno esto es lo que se me ocurre asi de pronto espero y te sirva de algo.

Se buena!

Yo usaria una sentencia SQL ejemplo:
SQLCadena="select * from mitabla where usuario ='" & txtusuario.text & ' and clave='" & txtclave & "'"
Temporal.Open SQLCadena, , adOpenForwardOnly, adLockOptimistic
If Temporal.EOF and Temporal.BOF then
msgbox "No existe"
else
msgbox "Existe"
Endif
No obstante prueba a poner en el Procedimiento los datos que vas a usar de esta forma
Sub Busca(sUsuario as String, sClave as String)
y sustituye txtUsuario y txtPass con estas variable.
OJO debes tambien modificar la llamada al procedimiento con
call busca txtUsuario.text,txtPass.text

Hola. De nada te servirá tener una tabla con usuarios en access si la base de datos puede ser abierta desde el mismo Access.
Para tener acceso a una BD en Access con permisos por usuarios debes crear un archivo con extensión .mdw y en él crear tus usuarios y permisos y quitarles los permisos al usuario Admin que trae access por defecto. Luego, debes relacionar tu BD a este archivo mdw para que lo utilice al momento de abrirla.
Si no haces esto, cualquiera que tenga Access en su máquina puede abrir tu BD sin necesidad de tener instalada tu aplicación VB.