Option Explicit
Public CN As New ADODB.Connection   'Vergabe des Namen der ADO Verbindung
Public RS As New ADODB.Recordset    'Vergabe des Namen des ADO Recordset
Public RSW As New ADODB.Recordset   'Vergabe eines Weiteren Mamen für einen ADO 
' Recordset
 
Public Sub get_data()               'Sub in der die Parameter der ADO Conection
                                    'festgelegt werden
        '---------------------------Optionen zur Connection
    Set CN = New ADODB.Connection
    With CN
                                    'Provider über den mit der Datenbank 
                                    ' kommuniziert wird
        .Provider = "Microsoft.Jet.OLEDB.4.0"
                                    'Pfad zur Datenbank
        .ConnectionString = sBaseDir
                                    'Als welcher User greife ich auf die 
                                    ' Datenbank zu
        .CursorLocation = adUseClient
        .Mode = adModeReadWrite     'Was kann in der Datenbank getan werden
        .Open                       'öffnen der Datenbank
    End With
        '---------------------------Optionen zum Recordset werden von Rufender
                                    'Seite her vergeben, da diese ständig 
                                    ' wechseln
    Set RS = New ADODB.Recordset
    Set RSW = New ADODB.Recordset
End Sub