急！急！！实时错误 ’2147024770 （8007007e）’自动化错误

Question

在运行程序的时候出现了一个问题。 实时错误 ’2147024770 （8007007e）’自动化错误
Private Sub cmdBAdd_Click()
    '使用用GetData组件，批量录入
     frmdata.Show
     Dim datain As New GetData.getOutData
     Set datain.Connection = conn（这个有问题）
     datain.Table = "零件信息表"
     datain.showFrm
     dgList.Refresh
End Sub之前我都能运行，结果过了两天就报错了，我不知道在哪里出错
急！！！！！！！！！！！！

Answer 1

工程-引用- MICROSOFT ACTIVEX DATE OBJECTS 2。7 LIBRARY 

Answer 2

Set conn = New ADODB.Connection

Answer 3

你的conn没连上吧,才有这种问题.

Answer 4

你先看一下conn有没有连接上去.