Estoy tratando de comparar datos de un campo txt a un campo de sql en la bd. Tengo que hacer un inicio de sesion en donde los usuarios digitan el nombre y la contraseña y si esta correcto los deja entrar al sistema.
tengo el siguiente codigo:
sSelect = "SELECT * FROM Usuarios WHERE Nom ='" & (Text1.Text) & "' "
cn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=STO; " & _
"Data Source=(local); " & _
"integrated security=SSPI; persist security info=True;"
' El recordset para acceder a los datos
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
' Abrir el recordset de forma estática, no vamos a cambiar datos
rs.Open sSelect, cn, adOpenStatic
If rs("Nom") = text1.text Then
rs.MoveFirst
Do
nombre = Text1.Text
Form1.Show
enco = 1
Unload Me
If (rs!Nivel = 2) Then
Form1.Bitcora.Visible = False
Form1.Mod_Usua.Visible = False
Form1.Reg_Usuario.Visible = False
Else
If (rs!Nivel = 3) Then
Form1.Sitio1.Visible = False
Form1.Bitcora.Visible = False
Form1.Funcio3.Visible = False
Form1.Mod_Usua.Visible = False
Form1.Modificar.Visible = False
Form1.nom.Visible = False
Form1.Regis.Visible = False
Form1.Reg_Usuario.Visible = False
End If
End If
'End If
rs.MoveNext
Loop Until ((enco = 1) Or (rs.EOF))
Me despliega error 3021....
Xfa una pronta solucion al problema!!! GRACIAS
