tengo un problema con este codigo.

[papurri]

hola a todos.. este codigo es un login,pero no funciona, me entrega un error en la linea en la que paso el sql al objeto comand..muchas gracias por la ayuda...

Private Sub cmdOK_Click()
Set rst = New ADODB.Recordset
Set comando = New ADODB.Command
''Set conexion = New ADODB.Connection

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\info.mdb"

SQL = "SELECT Nombre, pass FROM usuarios WHERE Nombre = '" & txtUserName.Text & "' AND pass = '" & txtPassword.Text & "'"
comando.CommandText = SQL

rst.Open comando.CommandText, conexion


If (rst.RecordCount > 0) Then

frmMenuPrincipal.Show

rst.MoveNext


Else
MsgBox "contraseña invalida, intente otra vez!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If


End Sub