Hola a toda la comunidad!

Necesito si pueden que por favor me ayuden con esta cuestion.
Quiero hacer el ingreso al sistema con usuario y contraseña, el tema es que con access y el conector data lo hago sin problemas, pero ahora al pasar a SQL y utilizar el conector adodc me da error, el codigo que uso es el mismo y la conexion es exitosa a la base de datos

Dim b As Integer
Private Sub CmdAceptar_Click()
Adodc1.Recordset.MoveFirst
Dim nombre As String
Dim contrasena As String
nombre = TxtUsers
contrasena = TxtContrasena
If nombre <> "" Then
If contrasena <> "" Then
While Not Adodc1.Recordset.EOF
If nombre = Adodc1.Recordset.Fields("Usuario") Then
If contraseña = Adodc1.Recordset.Fields("Contrasena") Then
FrmPrincipal.Show
FrmInicio.Hide
Else
MsgBox "Contraseña incorrecta"
b = b + 1
End If
Else
MsgBox "Usuario incorrecto"
b = b + 1
End If

Adodc1.Recordset.MoveNext

Wend
Else
MsgBox "Ingrese la contraseña"
b = b + 1
End If
Else
MsgBox "Ingrese el nombre"
b = b + 1
End If
If b = 3 Then
Adodc1.Recordset.MoveLast
MsgBox "Incorrecto chau"
End
End If
End Sub
Private Sub CmdCancelar_Click()
End

End Sub


Pense que podria no estar conectandose a la tabla, pero en las propiedades del adodc ya le puse para que se dirija a la tabla usuarios que es la que tiene la informacion.

Desde ya cualquier ayuda que me puedan brindar sera mas que agradecida.