Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'Set str = "Microsoft.Jet.OLEDB.4.0;Data Source=j:\vb+access\xuexi.mdb"
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & App.Path & "\data.mdb" & " ;Jet OLEDB:Database password= coucongzi"
conn.Open
rs.Open "select * from yhinfo where userid =" + Int(Text5.Text) + " and username=" & Chr(Text1.Text) & "", conn, adOpenDynamic, adLockPessimistic

If rs.EOF = False Then
MsgBox "用户编码或用户名已经存在，请检查后重新输入！", 16, "错误！"
rs.Close
Else
end if
...
...
end sub
上面的代码执行之后
总是提示“实时错误‘13‘ 类型不匹配”
调试的时候，在
rs.Open "select * from yhinfo where userid =" + Int(Text5.Text) + " and username=" & Chr(Text1.Text) & "", conn, adOpenDynamic, adLockPessimistic
这一行代码中变黄色，个人感觉很有可能问题出在了username=" & Chr(Text1.Text) & "",这段
我的username字段在ACCESS的字段类型是选择文本（不知道是不是这里错了），记录都是中文名字，如“张三”
请哪位高手帮忙指点一下要怎么改啊，小弟是新手，跪谢了！

哪位大哥帮帮忙啊

你把 + 号换成 & 试试。

估计是你写的 + 号，的VB 给搞混乱了。

把+换成&了，还是有同样的错误提示，我也试过吧&全部换成+，也是一样的报错啊
我估计是因为我的username在access中的数据类型是“文本”，跟text1.text的数据类型不匹配
但是不懂得要怎么转换啊

你用了 &  后，生成的内容就是字符型的。

刚仔细看了一下，你生成的 SQL 语句有问题。
你可以 输出这一句看看。

debug.print  "select * from yhinfo where userid =" & Int(Text5.Text) & " and username=" & Chr(Text1.Text) & ""

就会发现，在SQL 语句中，字符串没有再用 SQL 规定的 单引号 引起来。 ，自己加吧。

rs.Open "select * from yhinfo where userid =" + Int(Text5.Text) + " and username='" & Chr(Text1.Text) & "'", conn, adOpenDynamic, adLockPessimistic

好的，我先试试看啊

rs.Open "select * from yhinfo where userid =" & Val(Text5.Text) & "", conn, adOpenDynamic, adLockPessimistic
If rs.BOF <> True Or rs.EOF <> True Then
MsgBox "用户编码已经存在，请检查后重新输入！", 16, "错误！"
rs.Close
Else
rs.Close
rs.Open "select * from yhinfo where UserName ='" & Text1.Text & "'", conn, adOpenDynamic, adLockPessimistic
If rs.BOF <> True Or rs.EOF <> True Then
MsgBox "用户名已经存在，请检查后重新输入！", 16, "错误！"
rs.Close
Else
修改成这样的，终于搞定了，谢谢你啊，也谢谢4楼的，感谢指点！

是谢谢5楼的，看错啊
哈哈