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