vb刚学习数据库连接、执行，RS.RecordCount总是为-1,根据网上加了 RS.CursorLocation = adUseClient，结果还是不行

Question

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim SQL As String
Dim RS As ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = " Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa;Initial Catalog=db_DY;Data Source=NIE" RS.CursorLocation = adUseClient
'   RS.CursorType = adOpenStatic
cn.Open
If Trim(Text1.Text) <> "" Then
    SQL = "SELECT * FROM tb_userinfo WHERE userid='" & Trim(Text1.Text) & "'"
    Set RS = cn.Execute(SQL)
    If RS.RecordCount > 0 Then
      If Text2.Text = RS!pwd Then
        MsgBox "登录成功！"
      End If
    Else
      MsgBox "登录名错误，请确认"
      Text1.Text = " "
    End If
Else
    MsgBox "请输入用户名"
End If
cn.Close
Set cn = Nothing
End Sub

Answer 1

cn.Execute 会自动新建一个RecordSet实例，你前面 RS.CursorLocation = adUseClient 毫无用处。
要么设 cn.CursorLocation = adUseClient
要么用 rs.Open() 函数查询。

Answer 2

'这样试试：
SQL = "SELECT * FROM tb_userinfo WHERE userid='" & Trim(Text1.Text) & "'"
if rs.state<>adstateclosed then rs.close
rs.open sql,cn,adopenkeyset,adlockreadonly
if rs.recordcount>0 then
    ....