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 & "'"