Problemas de Conexion con SQLServer 2000 en formulario para que valida Usuario

[alejocr]

Compañeros,,
Tengo una aplicacion en VB6 que se conecta con una base de datos de Access 2000, al inicio pide el login y password del usuario, me funciona perfectamente. Ahora debo pasar esa aplicacion a SQLServer2000 y no hay forma de que me funcione. me da un error..

"The connection cannot be used to perform this operation. It is either closed or invalid in this context."

El codigo viene mas o menos asi

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim Cont As Integer

Private Sub cmdAceptar_Click()
If txtusuario = "" Or txtpassword = "" Then
MsgBox "Faltan Datos", vbExclamation
Exit Sub
End If
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' abrir la base usando las credenciales de Windows
cnn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=GWS; " & _
"Data Source=SANTS3C; " & _
"integrated security=SSPI; persist security info=True;"

'SqlStr = "SELECT * FROM USERS WHERE LOGINNAME = '" & txtusuario & "'"
rst.Open "SELECT * FROM USERS WHERE LOGINNAME = '" & txtusuario & "'"", cnn, adOpenDynamic, adLockOptimistic"
'TablaUsuarios.Open SqlStr, ConexionSant3c, adOpenStatic, adLockOptimistic, adCmdText
If TablaUsuarios.RecordCount = 0 Then
MsgBox "USUARIO NO PERMITIDO", vbExclamation
TablaUsuarios.Close
Cont = Cont + 1
Else
If TablaUsuarios("PASSWD") <> (txtpassword) Then
MsgBox "USUARIO NO PERMITIDO", vbExclamation
TablaUsuarios.Close
Cont = Cont + 1
Else
User.Usuario = txtusuario
Me.Hide
frmmain.Show
TablaUsuarios.Close
Unload Me
Exit Sub
End If
End If
If Cont = 3 Then
Unload Me
End If
End Sub


Agradeceria cualquier ayuda al respecto..

Alejandro