求助实时错误’3001‘

各位大侠有请，本人刚学VB，也是下面一段也是网络上抄的，运行时“rs.Open str, connectString, adOpenKeyset, 2”此句报实时错误‘3001‘，参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。各位大侠给看看错在哪里？已经搞了三天了，实在搞不懂，谢谢了！
Private Sub CmdOK_Click()
Dim UserName As String
Dim userpassword As String
Dim str As String
Dim nTryCount As Integer
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
UserName = Trim(txtUserName.Text)
userpassword = Trim(txtpassword.Text)
str = "select * from 用户信息表 where 用户名='" & UserName & "' and 用户密码 = '" & userpassword & " '"
rs.Open str, connectString, adOpenKeyset, 2 '报错
If rs.EOF Then '登录失败
MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
txtUserName.Text = ""
txtpassword.Text = ""
txtUserName.SetFocus
nTryCount = nTryCount + 1
If nTryCount >= 3 Then
MsgBox "您无权操作本系统！", vbCritical, "无权限"
Unload Me
End If
Else '登陆成功
主界面.Show
Unload Me
End IfEnd Sub