vb.net中插入access表记录，老：提示标准表达式中数据类型不匹配

[jygongweibin]

Dim ming As String = mingcheng.Text
Dim shu As Integer = CInt(shuliang.Text)
Dim dan As String = "件"
Dim lei As String = leibie.Text
Dim shi As Date
Dim cang As String = "01"
Dim shou As Decimal = CDec(shoujia.Text)
Dim gongying As String = ""
Dim m As Decimal = FormatNumber(CDec(jinjia.Text) * CDec(shuliang.Text), 2)
Dim ym As Decimal = FormatNumber(CDec(jinjia.Text) * CDec(shuliang.Text), 2)
Dim kming As String = mingcheng.Text
Dim guige As String = TextBox1.Text
Dim yanse As String = TextBox2.Text
linshimoney = linshimoney + CDec(jinjia.Text) * CDec(shuliang.Text)
Dim shijia As Decimal = FormatNumber(CDec(jinjia.Text), 2)
cm.CommandText = "insert into caigou(shijian,xiangmu,bianhao,gongying,shuliang,danwei,jinjia,shoujia,[money],guige,yanse,cangku,leibie) values('" + shi + "','" + ming + "','" + bianhao + "','" + gongying + "','" & CStr(shu) + "','" + dan + "','" & CStr(shijia) + "','" & CStr(shou) + "','" & CStr(m) + "','" + guige + "','" + yanse + "','" + cang + "','" + lei + "')"
cm.ExecuteNonQuery()

怀疑是时间格式的问题 但不知道具体什么错误，请大师指点

[Mr_Bean]

你debug一下cm.CommandText 出来的sql语句是什么 就知道了

[jygongweibin]

在xp环境下没问题 在32位win7出现错误提示

[wwwwb]

ACCESS时间格式:#2013-10-01# SQL语句内容是什么

[ACMAIN_CHM]

断点调试，检查一下实际提交的 CommandText 是什么。 另外这么多参数，建议使用 parameter 而不是拼接SQL语句。