GetDataMember Event Example

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