小问题需要大家的帮助！

2005-05-03 09:29:28 105 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

浙政钉（专有钉钉）门户免登（超详细）钉钉家族介绍浙政钉门户免登之前，首先搞清楚几个软件的关系，软件分别是：钉钉，专有钉钉，浙政钉钉钉是阿里巴巴集团专为中小企业打造的沟通和协同的多端平台。专有钉钉原名政务钉钉，有更开放的设计能力、集成能力、更结构化协同产品、更定制化开发平台。支持专有化部署，数据落本地，更安全、客户可对该产品持牌运营、结构化编排，协助构建本地应用中心、提供移动应用全面安全保障体系。浙政钉为规范浙政钉整体架构体系，按照统分结合原则，由省政府办公厅统一设计整体工作界面和系统框架，统筹指导全省统建应用建设，各单阅读详情

以下是我写的一段代吗！不知那里错了，提交不到数据库！

Private Sub ok_Click()

On Error GoTo ErrHandler

If id.Text <> "" Then
txtSQL = "insert into [ywll] (id,quyu,xiaoqu,address,newadd,card,name,job,"
txtSQL = txtSQL & "xueli,mobil,tel,email,dddate,azday,rhday,hei1,clman,clweigui,"
txtSQL = txtSQL & "other1,cc1,ch1,w1,dw1,s1,d1,j1,cc2,ch2,w2,dw2,s2,d2,"
txtSQL = txtSQL & "j2,cc3,ch3,w3,dw3,s3,d3,j3,cc4,ch4,w4,dw4,s4,d4,j4,cc5,ch5,"
txtSQL = txtSQL & "w5,dw5,s5,d5,j6,cc6,ch6,w6,dw6,s6,d6,j6,cc7,ch7,w7,dw7,s7,d7,"
txtSQL = txtSQL & "j7,cc8,ch8,w8,dw8,s8,d8,j8,zhekou,ywje,heji,yufu,shiji,sunyi,"
txtSQL = txtSQL & "manyi,wgman,weigui,dengji,heiman,zxco,tsman,tousu,other2) "
txtSQL = txtSQL & " values (" & id.Text & "," & quyu.Text & "," & xiaoqu.Text & "," & address.Text & "," & newadd.Value & "," & card.Text & "," & name1.Text & "," & job.Text & "," & xueli.Text & "," & mobil.Text & "," & tel.Text & "," & email.Text & "," & dddate.Text & "," & azday.Text & "," & rhday.Text & "," & hei1.Text & "," & clman.Text & "," & clweigui.Text & "," & other1.Text & "," & cc1.Text & "," & ch1.Text & "," & w1.Text & "," & dw1.Text & "," & s1.Text & "," & d1.Text & "," & j1.Text & "," & cc2.Text & "," & ch2.Text & "," & w2.Text & "," & dw2.Text & "," & s2.Text & "," & d2.Text & "," & j2.Text & "," & cc3.Text & "," & ch3.Text & "," & w3.Text & "," & dw3.Text & "," & s3.Text & "," & d3.Text & "," & j3.Text & "," & cc4.Text & "," & ch4.Text & "," & w4.Text & "," & dw4.Text & "," & s4.Text & "," & d4.Text & "," & j4.Text & ","
txtSQL = txtSQL & "" & cc5.Text & "," & ch5.Text & "," & w5.Text & "," & dw5.Text & "," & s5.Text & "," & d5.Text & "," & j5.Text & "," & cc6.Text & "," & ch6.Text & "," & w6.Text & "," & dw6.Text & "," & s6.Text & "," & d6.Text & "," & j6.Text & "," & cc7.Text & "," & ch7.Text & "," & w7.Text & "," & dw7.Text & "," & s7.Text & "," & d7.Text & "," & j7.Text & "," & cc8.Text & "," & ch8.Text & "," & w8.Text & "," & dw8.Text & "," & s8.Text & "," & d8.Text & "," & j8.Text & "," & z.Text & "," & f.Text & "," & j0.Text & "," & yufu.Text & "," & shiji.Text & "," & sunyi.Text & "," & manyi.Text & "," & wgman.Text & "," & weigui.Text & "," & dengji.Text & "," & heiman.Text & "," & zxco.Value & "," & tsman.Text & "," & tousu.Text & "," & other2.Text & ")"

' txtSQL = txtSQL & "' where id='" & Trim(number.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
success = True
If MsgText = "insert query successful" Then
' MsgBox txtSQL, , "恭喜！"
MsgBox "录入成功！", , "恭喜！"
Else
MsgBox txtSQL, , "错误"
End If
Else
MsgBox "请填入单号！", , "错误"
End If

Exit Sub

ErrHandler:

MsgBox txtSQL
' MsgBox "数据库连接失败，请修复后重试！", , "失败！"

End Sub

请大家帮帮我，检查一下是哪里错了！谢谢~~

...全文