ahi esta el codigo que necesitas para verificar usuario y pass en una base de datos
Dim bd As Connection
Dim rec As Recordset
Dim SQL As String
Private Sub Command1_Click()
Set db = OpenDatabase("rutadebasededatos.mdb")
SQL = "nombredelatabla"
strSQL = "SELECT * FROM nombredelatabla WHERE campousuario LIKE '" & text1.Text & "'"
Set rs = db.OpenRecordset(strSQL)
On Error GoTo error
User = rs("campodelusuario")
pass = rs("campodelpassword")
If text1.Text = User And Text2.Text = pass Then
MsgBox "Usuario y pass correcto..."
End If
error:
If Err.Number = 3021 Then
MsgBox "Usuario o password incorrecto..."
End If
End Sub
espero te sirva, ya lo probe y funciona correctamente
saludos
no olvides tener puesta la referencia de microsoft dao 3.6 o la ke tengas
