到底错在哪儿？

Question

Dim str As String
Dim conn As Connection
Dim rs As RecordsetPrivate Sub cmd_Click()    If rs.State = 1 Then rs.Close
    sql = "select * from nt_user where usercode='" & Trim(usercode.Text) & "' and userpasswd='" & Trim(password.Text) & "'"
    rs.Open sql, conn, adOpenKeyset, adLockOptimistic
    If rs.RecordCount > 0 Then
        mdimain.Show
        Unload main
    Else
        If MsgBox("请输入有效的用户名和密码", vbInformation, "错误") = vbOK Then
        End If
    End If
        
End SubPrivate Sub cmdcancle_Click()
    
    Unload Me
    
End SubPrivate Sub Form_Load()
    
    Set conn = New ADODB.Connection
    str = "Data Source=NTMIT;User ID=sa;Password=ntmitkoei;Initial Catalog=ntsql"
    conn.Provider = "SQLOLEDB"
    conn.ConnectionString = str
    conn.Open
    sql = "Select * from nt_user"
    Set rs = New ADODB.Recordset
    Set rs.ActiveConnection = conn
    rs.CursorLocation = adUseServer
    rs.Open sql, conn, adOpenKeyset, adLockOptimisticEnd SubPrivate Sub password_KeyPress(KeyAscii As Integer)
    
    If KeyAscii = 13 Then
        cmd_Click
    End IfEnd Sub
Private Sub usercode_KeyPress(KeyAscii As Integer)
    
    If rs.State = 1 Then rs.Close
    sql = "select * from nt_user where usercode='" & Trim(usercode.Text) & "'"
    rs.Open sql, conn, adOpenKeyset, adLockOptimistic
    If KeyAscii = 13 Then
        username.Text = rs!username
        password.SetFocus
    End If
        
End Sub

Answer 1

rs.RecordCount始终为-1，登录不上。

Answer 2

会不会是rs.Open sql, conn, adOpenKeyset, adLockOptimistic这句错了。参数不正确？急~~~~

Answer 3

把If rs.RecordCount > 0 Then改为
If rs.Eof=false Then

Answer 4

rs.Open sql, conn, adOpenKeyset, adLockOptimistic
你使用的是服务器端游标
使用服务器端游标rs.recordset就是-1
把它改成
rs.Open sql,cnns,adOpenForwardOnly ,adLockReadOnly 
就好了!!