vb高手进,菜鸟寻求帮助、、、

麻烦看看，我这段代码问题出在哪里我是向数据库Part里面插入一条记录但是老出错，见下图高手指导下，谢谢啦代码如下：Private Sub Command1_Click()main.Adodc1.RecordSource = "Part"main.Adodc1.Refreshmain.Adodc1.Recordset.AddNewmain.Adodc1.Recordset.Fields("ID").Value = Text1.Textmain.Adodc1.Recordset.Fields("Color").Value = Text2.Textmain.Adodc1.Recordset.Fields("Name").Value = Text3.Textmain.Adodc1.Recordset.Fields("Weight").Value = Text4.Textmain.Adodc1.Recordset.Fields("Intro").Value = Text5.Textmain.Adodc1.Recordset.UpdateMsgBox "添加成功!"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text1.SetFocusEnd Sub 收起