Question

VB为什么说标准表达式中数据类型不匹配？这是什么意思？

Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim yhm As String
Dim jszc As String
Dim mm As String
Private Sub Command1_Click(Index As Integer)
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "对不起，用户名与密码不能为空", vbInformation, "输入错误"
Exit Sub
End If
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\khxt\2\db1.mdb;Persist Security Info=False"
Conn.Open
rs.Open "select * from jszc where yhm='" & Text1.Text & "' and mm='" & Text2.Text & "'", Conn, 3, 3
rs.AddNew
jszc_yhm = Text1.Text
jszc_mm = Text2.Text
rs.Update
form2.Show
rs.Close
Conn.Close
Unload Me
End Sub
这是我的全部代码，请高手告诉我是为什么？而且，我是想写个添加用户名和密码的代码，可是运行的时候在access数据库里没有我新添加的数据？这是怎么回事？又该怎么修改代码？谢谢了~

Answer 1

把数据库中的字段改为文本，代码就没问题了
如果密码字段是数字，就把代码中的text2.text两边的单引号去掉。

Answer 2

如果数据库表中用户名是int 类型的'" & Text1.Text & "' 改成" & Text1.Text & "，可能是这个原因。

Answer 3

rs.AddNew
jszc_yhm = Text1.Text
jszc_mm = Text2.Text
rs.Update
问一下能这样写吗？我一般都是写成这样的：
rs.AddNew
jszc("yhm") = Text1.Text
jszc("mm") = Text2.Text
rs.Update