我从数据库中的各个表中查出值,现在要存入数据库的一个表中
我在from中添了两个ADO 控件 一个为 keyun 另一个为 adodc1
从keyun中查出来   两个控件都是连接到同一个数据库的
我的存入代码为
Set mcr = Adodc1.Recordset
   mcr.AddNew
   mcr.Fields(0) = Trim(Text6.Text)
   mcr.Fields(1) = Trim(Text2.Text)
   mcr.Fields(2) = Trim(Text3.Text)
   mcr.Fields(3) = Trim(Text4.Text)
   mcr.Fields(4) = Trim(Text5.Text)
   mcr.Fields(5) = Trim(txtNumber.Text)
   mcr.Fields(6) = Trim(Text7.Text)
   mcr.Update
 运行是提示   mcr= nothing
问题出在那里