运行就说对象变量或with块未定义，请求帮助
运行就说对象变量或with块未定义，请求帮助Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("编号").Value = Text10.Text
Adodc1.Recordset.Fields("SFZMMC").Value = Text23.Text
Adodc1.Recordset.Fields("SFZMHM").Value = Text2.Text
Adodc1.Recordset.Fields("GJ").Value = Text24.Text
Adodc1.Recordset.Fields("XM").Value = Text3.Text
Adodc1.Recordset.Fields("XB").Value = Text25.Text
Adodc1.Recordset.Fields("CSRQ").Value = Text4.Text
Adodc1.Recordset.Fields("DJZSXZQH").Value = Text26.Text
Adodc1.Recordset.Fields("LXZSXZQH").Value = Text27.Text
Adodc1.Recordset.Fields("DJZSXXDZ").Value = Text12.Text
Adodc1.Recordset.Fields("LXZSXXDZ").Value = Text14.Text
Adodc1.Recordset.Fields("LXZSYZBM").Value = Text15.Text
Adodc1.Recordset.Fields("LXDH").Value = Text16.Text
Adodc1.Recordset.Fields("XZQH").Value = Text29.Text
Adodc1.Recordset.Fields("LY").Value = Text30.Text
Adodc1.Recordset.Fields("ZZZM").Value = Text17.Text
Adodc1.Recordset.Fields("SG").Value = Text18.Text
Adodc1.Recordset.Fields("ZSL").Value = Text19.Text
Adodc1.Recordset.Fields("YSL").Value = Text20.Text
Adodc1.Recordset.Fields("TJYYMC").Value = Text21.Text
Adodc1.Recordset.Fields("GXSJ").Value = Text22.Text
' Adodc1.Recordset.Fields("ZKCX").Value = Combo7.Text
' Adodc1.Recordset.Fields("JXMC").Value = Combo9.Text
' Adodc1.Recordset.Fields("BSL").Value = Combo10.Text
' Adodc1.Recordset.Fields("TL").Value = Combo11.Text
' Adodc1.Recordset.Fields("SZ").Value = Combo12.Text
' Adodc1.Recordset.Fields("ZXZ").Value = Combo13.Text
' Adodc1.Recordset.Fields("YXZ").Value = Combo14.Text
' Adodc1.Recordset.Fields("QGJB").Value = Combo15.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Close
' MsgBox "添加成功!", vbOKOnly + vbExclamation, "警告"
Exit Sub
AddErr:
MsgBox Err.Description
Exit Sub
end sub
