求助实时错误’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 If

End Sub
--------------------编程问答-------------------- rs.Open str, connectString, adOpenKeyset, 2

红色位置参数不能是字符串，必须是一个已经打开的连接对象（connection对象） --------------------编程问答-------------------- http://download.csdn.net/detail/veron_04/3827200 --------------------编程问答-------------------- 谢谢worldy的帮助，若能详细指点一下该输入的对象更是感激不尽，本人是菜鸟的菜鸟，见笑了！

补充：VB ,  基础类