我编了一段VB6的程序，通过VB 的添加数据窗体向导中的网格（数据表）ADO代码生成的。但出现"对象不是源自动事件"错误，到底是怎么回事, 谢谢！ 样本程序如下： Dim WithEvents adoPrimaryRS As Recordset Private Sub Form_Load() Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=MSDASQL;dsn=AAAA;uid=sa;pwd=testing;database=ooTEST;"

Set adoPrimaryRS = New Recordset adoPrimaryRS.Open "select empcode,c_name,pinyin,orgcode1,orgcode2,DateIn,Shift01,Shift02,Shift03,OT01,OT02,OT03,LV01,LV02,LV03,LV04 from ASIMCO_Input Order by empcode", db, adOpenStatic, adLockOptimistic

Set grdDataGrid.DataSource = adoPrimaryRS

mbDataChanged = False End Sub

把db.CursorLocation=adUseClient和db.Open "Provider...."换个位置

这是一个编译错误， Dim WithEvents adoPrimaryRS As Recordset 有错。

dim WithEvents adoPrimaryRS as ADODB.RecordSet

谢谢！ 但是那样改的话，
Dim db As Connection
  Set db = New Connection 就有错误了

Dim db as ADODB.Connection
Set db=New ADODB.Connection
肯定没错，错了管换

对了！ 非常感谢！

到底是什么原因呢？

你肯定没有做过组件编程，其实ADODB就是个DLL组件，你在工程中引用组件时的格式必须是：
工程名.类名，引深到ADODB就是：ADODB就是工程名，而Connection和RecordSet是类名，所以必须是：
ADODB.Connection和ADODB.RecordSet