adodc控件的属性写成代码发生的错误，高手帮帮我

Question

有劳各位大哥了，我现在一个程序里面用了一个adodc的控件，然后该窗体里也有DataGrid的控件
原来我连接数据库都写在这个adodc控件的属性里的，将其ConnectionString连接一个数据，然后RecordSource选到所要连的表，现在我准备把它写到代码里去，就发生这个错误，大家帮我看看啊，谢谢啦。写到代码里的代码如下：（直接双击adodc控件写的代码）Private Sub AdodcCustomLevel_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
AdodcCustomLevel.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\cangku\logo.mdb;Persist Security Info=False"
AdodcCustomLevel.RecordSource = customLevel
End Sub报的错误为编译错误：过程声明与同名事件或过程的描述不匹配

Answer 1

引用ADO类型库版本的问题
在工程/引用/Microsoft ActiveX Data Object 2.X Library
其中 2.X 你试着从2.0到2.5，一个一个地引用，看看哪一个才是正确的

Answer 2

靠，楼上的答得也太NX了。我觉得抢分是个好事情，但是拜托你不要这么不负责的答题，看清楚再答。OK？？？==========================================================================
to lz:
：（直接双击adodc控件写的代码）。//这是你自己说你的操作。WillMove这个事件只是MS写adodc控件默认的事件。请注意，不是所有的默认是正确。所以你写adodc连接不应该 adodc控件的事件，而是应该选择正确事件去写例如：form运行时候连接则写在form_load中间
      点command则写在click中间给你个示范：
示范：
'--如何用Adodc控件代码去连接Access
Private Sub Command1_Click()
 Dim strConn As String
 
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' adodc的连接字符串
 Adodc1.ConnectionString = strConn
 
 ' 指定Command对象的形态
 Adodc1.CommandType = adCmdText
 
 ' 设置传回一个资料录集。
 Adodc1.RecordSource = "Select * from People"
 
 ' 将记录集合绑定DataGrid1
 Set DataGrid2.DataSource = Adodc1
End Sub

Answer 3

问题在这一句，RecordSource 属性的值应该是一个字符串，它可以是一个表名，或一个 SQL 语句。AdodcCustomLevel.RecordSource = customLevel如果 customLevel 就是表名，用双引号括起来：AdodcCustomLevel.RecordSource = "customLevel"或AdodcCustomLevel.RecordSource = "SELECT * FROM customLevel"

Answer 4

谢谢daisy8675大哥，问题解决了。
告知faysky2()：其实就是只要写在form_load里就可以了，然后加上Set DataGrid.DataSource 的语句，数据库就可以正常连接了。