紧急求救，在线急等！！！

[冰天天]

run-time error '-2147217900(80040e14)';
第1行：'2006'附近有语法错误
出错代码：
cn.Open strSQLserver
cn.Execute "insert into dpr (dprid,[date],[user],shift,batchid,package,cause,name,shift1)values" & _
"('" & txtId.Text & ",'" & Format(dtpDate.Value, "yyyy-mm-dd") & "','" & txtUser.Text & "','" & cboShift.Text & "','" & txtBatchId.Text & "'," & _
"'" & txtPackage.Text & "','" & txtContent.Text & "','" & txtName.Text & "','" & cboShift1.Text & "')"
cn.Close
这是什么错误？

[51365133]

SQL 错了吧，不知道你的意思，你在仔细的比较下。

[51365133]

用跟踪 把SQL显示出来，容易找到错误。

[fxj331072]

第1行：'2006'附近有语法错误

把有错误的那行贴出来好吗？SQL好象没问题

[faysky2]

缺少了一个引号吧？

& _
"('" & txtId.Text & "在这里放一个单引号,'" & Format(dtpDate.Value, "yyyy-mm-dd") & "','" & txtUser.Text & "','" &

[冰天天]

我贴的就是出错的代码

[zou19820704]

cn.Open strSQLserver 这句错的话，麻烦你把strSQLserver 值帖出来！！

[skualgj]

既然报错在“2006”附近，那肯定是SQL语句中日期的年数附近有错，看看你的SQL语句 Format(dtpDate.Value, "yyyy-mm-dd") 附近很快就找到错误："('" & txtId.Text & ",'"
这句txtId.Text 后面应该再加个“'”,即变为"('" & txtId.Text & "','"