有一个现象不知你是否注意:
DataGrid 可以使用过程级的 ADODB.Recordset 作为DataSource 如:
Private Sub Form_Load()
Dim adoRecordset As New ADODB.Recordset
Dim adoConnection As New ADODB.Connection
adoConnection.Open "..."
adoRecordset.Open "SQL",adoConnection
Set DataGrid1.DataSource = adoRecordset
End Sub
========
由上启发:
在Module中:
Public adoPrimaryRS As Recordset
在 Form 中:
Dim WithEvents adoWithEventsRecordset As Recordset
Private Sub Form_Load()
'注意不必使用 New 实例化 adoWithEventsRecordset
'因为 adoPrimaryRS 已经打开了
set adoWithEventsRecordset= adoPrimaryRS