vb如何选中的内容添加到数据库中

补充：Private Sub Command1_Click()
Adodc1.RecordSource = "select * from zy"
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("中药名称") = Text1.Text
Adodc1.Recordset.Fields("中药类型") = Combo1.Text
Adodc1.Recordset.Fields("中药四性") = Combo2.Text
Adodc1.Recordset.Fields("中药五味") = Combo3.Text
Adodc1.Recordset.Fields("中药归经") = Combo4.Text
Adodc1.Recordset.Fields("中药功能") = Combo5.Text
Adodc1.Recordset.Fields("中药主病") = Combo6.Text
Adodc1.Recordset.Fields("中药主症") = Combo7.Text
Adodc1.Recordset.Update
就这个程序老是报错啊，实时错误91 对象变量或with块变量未设置
哪里需改进的啊，求指教啊，

其他：对象或with块变量未设置，如果你用到了数据库很可能是因为数据库未连接，建议检查一下数据库的连接情况~~~~ 

上一个：VB输出的数怎样能避免四舍五入
下一个：VB逆向倍数，程序知道，求代码，高分悬赏！！