This example uses the GetDataMember event to determine what data will be provided by a data source class.
Option Explicit
Private rsFirst As ADODB.Recordset
Private rsSecond As ADODB.Recordset
Private rsDefault As ADODB.Recordset
Private Sub Class_GetDataMember(DataMember As String, Data As Object)
Select Case DataMember
Case "First"
Set Data = rsFirst
Case "Second"
Set Data = rsSecond
Case “” ‘ default
Set Data = rsDefault
Case Else
Err.Raise 99999, "DataSource", "Invalid DataMember"
End Select
End Sub