Cita:
Iniciado por GeoAvila 
Private Sub CmbAceptar_Click()
Set rec = new ADODB.recordset '***faltante..
rec.Open "Select * from Usuarios where IdUsuario = '" & DataList1.Text & "' ", db, adOpenKeyset, adLockOptimistic
eso te falta...
QUE TAL COMO VA ME PUEDE COLABORAR CON LO FALTANTE PARA ESTE CODIGO
SALE EL ERROR 438 CUANDO DOY CLICK EN EL BOTON OK SI ESTAN LOS CAMPOS VACIOS
Private Sub cmdCancel_Click()
End
End Sub
Private Sub cmdOK_Click()
Set rec = dta_administradores.Recordset '***faltante..
rec.Open "Select * from dta_administradores where login = '" & dbc_login.Text & "' ", db, adOpenKeyset, adLockOptimistic
Dim aux As Integer
dta_administradores.RecordSource = "SELECT * FROM administradores WHERE login = '" & dbc_login.Text & "' And password = " & txtPassword.Text & ""
dta_administradores.Refresh
aux = dta_administradores.Recordset.AbsolutePosition
If aux = 0 Then
MsgBox "OK ADMINISTRADOR AUTORIZADO", vbInformation, "Inicio de sesion"
Unload Me
frm_menu.Show
Else
MsgBox "ERROR USUARIO NO AUTORIZADO", vbCritical, "Inicio de sesion"
txtPassword.Text = ""
txtPassword.SetFocus
End If
End Sub
Private Sub Form_Activate()
txtPassword.Text = ""
End Sub