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