Dim txtnombre As String
Dim txtclave As String
Dim cn As DataEnvironment1
Private Sub entrar_Click()
txtnombre = Text1.Text
txtclave = Text2.Text
Set cn = New DataEnvironment1
cn.rsusuarios.Open "select * from usuario where nombre='" & txtnombre & "' and clave= '" & txtclave & "'"
If cn.rsusuarios.EOF = True Then
MsgBox "CLAVE O USUARIO INCORRECTO", vbCritical
Else
Unload Me
frmMenuP.Show 1
End If
End Sub
Private Sub salir_Click()
End
End Sub
ESTE ES UN FORMULARIO PARA VALIDAR EL USUARIO Y CLAVE PARA ACCEDR AL SISTEMA!!
AYUDA ME MANDA ESE ERROR Y AL DEPURAR SE POSICIONA EN cn.rsusuarios.Open "select * from usuario where nombre='" & txtnombre & "' and clave= '" & txtclave & "'"