tengo esta consulta q me funciona con DAO pero necesito cambiar el codigo pa que me funcione con ADO, ¿ALGUIEN ME AYUDA?

'consulta para validar al usuario y password
Private Sub validar()
Dim path As String
Dim consulta As String
path = App.path & "\mantenimiento.mdb"
Set misesion = Workspaces(0)
Set mibd = misesion.OpenDatabase(path)
consulta = "select usuarios.usuario, usuarios.password "
consulta = consulta & "from usuarios WHERE(usuarios.usuario='" & usuario(conexion) & "') AND (usuarios.password='" & password(conexion) & "')"
Set rs2 = mibd.OpenRecordset(consulta, dbOpenDynaset)
If rs2.EOF = True And rs2.BOF = True Then
valido = False
Else
valido = True
End If
rs2.Close
End Sub

Responder