请教关于用insert into向数据库录入数据的问题:
请看以下代码:

Private Sub Command4_Click()
Dim C1 As String
Dim C2 As Long
C1 = "XXDJ"
C2 = 12345678
Adodc1.RecordSource = "insert into 通信录(姓名,电话)values('" & C1 & "','" & C2 & "')"
Adodc1.Refresh
End Sub

当运行以下代码时，Adodc1出错提示“对象关闭时，不允许操作”，但数据可录入。如将 （Adodc1.Refresh）行删除后，不出现出错提示，但数据也不能录入。由于我是初学者，是否是语句有问题，请帮忙看一下，谢谢大家。

这么看上去不知道是什么问题，但我建议你可以用一下排出法，首先把你想要执行SQL语句在数据库里直接执行，如果没有问题，那么矛盾就可以集中到你的VB语句里是否有其他问题了。

试了很多方法还是不行，数据库的连接应该没有问题，ADODC我通过“属性的连接字符串”进行了设置。我考虑Adodc1出错提示“对象关闭时，不允许操作”，是否是由于缺少一个触发事件，但试了一些方法也无效。
难道通过以下代码无法实际对数据库的输入吗？这个问题搞的脑袋都痛。
Adodc1.RecordSource = "insert into db1(姓名,电话)values('" & C1 & "','" & C2 & "')"
Adodc1.Refresh
哪位大侠给帮忙看看，先谢谢了！

对象没有打开。
set 对象= new ado…………

我一直想用Adodc控件实现insert into语句看来是钻入牛角尖了。可用“对象”来实现insert into语句，此问题已得到解决，再次谢谢大家，并结贴。