RecordSet事件的編程
也可以對這個 Recordset 對象的事件進行編程。在該類模塊中，單擊“對象”框（在位於左上角），然後單擊“rsNames”。在“過程/事件”框（在右上角）中，下拉列表將顯示這個 Recordset 對象的所有事件。
給類添加一個屬性
類模塊也可以進行修改，來響應事件或函數調用。下面的代碼演示了如何先給類添加屬性。當從其它對象調用該對象時，這一屬性將返回該類的RecordCount。
Public Property Get RecordCount() As Long
RecordCount = rsNames.RecordCount
End Sub
使用 DataMember 屬性
GetDataMember 事件也包括 DataMember 參數。使用這個參數，可以在類模塊中包括多個記錄集，並使用帶 DataMember 參數的 Select Case 語句來返回相應的記錄集：
Private Sub Class_GetDataMember(ByVal DataMember As String, Data As _
Object)
Select Case DataMember
Case "Names"
Set Data = rsNames
Case "Dates"
Set Data = rsDates
Case Else
' 設置一個默認的數據成員
Set Data = rsYears
End Select
End Sub
如果要指定所需的 DataMember，請將數據使用者的 DataMember 屬性設置為適當的字符串，然後如平常一樣設置 DataSource。對於 DataGrid 控件，可以采用如下方法：
Private Sub Form_Load()
' 創建一個新的 NamesData 對象
Set datNames = New NamesData
' 指定所需的 DataMember，然後設置 DataSource。
DataGrid1.DataMember = "Names"
Set DataGrid1.DataSource = datNames
End Sub
