用vb做一个用户登陆界面出现错误，求帮助

Question

实时错误 '3001 ' 
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。 
用的是VB6.0   调试时显示错误是rs.Open str, ConnectionString, adOpenKeyset, 2
Private Sub Command1_Click()
     If TxtCname.Text = "" Then
        MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
        TxtCname.SetFocus
        Exit Sub
    End If
    If TxtCpass.Text = "" Then
        MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
        TxtCpass.SetFocus
        Exit Sub
    End If Dim Conn As New ADODB.Connection
Dim User As String
Dim pass As String
Dim str As String
Dim nTryCount As Integer
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
User = Trim(TxtCname.Text)
pass = Trim(TxtCpass.Text)str = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & " '"rs.Open str, ConnectionString, adOpenKeyset, 2If rs.EOF Then
MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
TxtCname.Text = ""
TxtCpass.Text = ""
TxtCname.SetFocus
nTryCount = nTryCount + 1
If nTryCount >= 3 Then
MsgBox "您无权操作本系统！", vbCritical, "无权限"
Unload Me
End If
Else
Form8.Show
Unload Me
End If
End Sub
 

Answer 1

conn.connectionstring=ConnectionString
conn.openstr = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & " '"rs.Open str, conn, adOpenKeyset, 2

Answer 2

误
str = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & " '"
正:
str = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & "'"

Answer 3

同学
这样是不行的
str = "select * from 顾客 where Cname='" & TxtCname.Text & "' and Cpass = '" & TxtCpass.Text & " '"rs.Open str, ConnectionString, adOpenKeyset, 2'---------------
你要这样做
conn.connectionstring=connectionstring '--在你这一步作对的前提下
conn.open
rs.open str,conn,adOpenKeyset, 2