Option Explicit
 
    Public Cn As Connection
    Public rsNetzanbieter As Recordset
    Public rsTarife As Recordset
    Public rsOption As Recordset
    Public rsSubOption As Recordset
    Public rsSubSubOption As Recordset
 
Private Sub class_GetDataMember(DataMember As String, Data As Object) '
 
 Select Case DataMember
    Case "Netzanbieter"
        Set Data = rsNetzanbieter
    Case "Tarife"
        Set Data = rsTarife
    Case "Option"
        Set Data = rsOption
    Case "SubOption"
        Set Data = rsSubOption
    Case "SubSubOption"
        Set Data = rsSubSubOption
End Sub
 
Private Sub Class_Initialize()
 
    Set Cn = New Connection
    Cn.CursorLocation = adUseClient
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Cn.Open App.Path & "\DB\TCC-2006-13a.mdb"
    Set rsNetzanbieter = New Recordset
    rsNetzanbieter.Open "SELECT * FROM Netzanbieter", Cn, adOpenKeyset, _
      adLockOptimistic
    Set rsTarife = New Recordset
    rsTarife.Open "SELECT * FROM Tarife", Cn, adOpenKeyset, adLockOptimistic
    Set rsOption = New Recordset
   [u] rsOption.Open "SELECT * FROM Option", Cn, adOpenKeyset, _
     adLockOptimistic
    Set rsSubOption = New Recordset
    rsSubOption.Open "SELECT * FROM SubOption", Cn, adOpenKeyset, _
      adLockOptimistic
    Set rsSubSubOption = New Recordset
    rsSubSubOption.Open "SELECT * FROM SubSubOption", Cn, adOpenKeyset, _
      adLockOptimistic
 
 
End Sub
 
Private Sub Class_Terminate()
 
    Set rsNetzanbieter = Nothing
    Set rsTarife = Nothing
    Set rsOption = Nothing
    Set rsSubOption = Nothing
    Set rsSubSubOption = Nothing
 
End Sub

der Hund ist Dir im Sturme treu - der Mensch nicht mal im Winde
\"Kampfhunde\" Liebhaber