Public Datenbank As ADODB.Connection
   'z.B. in der Form_Load
   'Connection festlegen
    Set Datenbank = New ADODB.Connection
    Datenbank.CursorLocation = adUseClient
    Datenbank.Open "Provider=Microsoft.Jet.Oledb.4.0;" & _
        "Data source=" & "DATENBANK"

    Public RS As ADODB.Recordset
 
    Set RS = New ADODB.Recordset
 
    With RS
        'Öffnen der Tabelle mit dem angegebenen SQL-String
        .Open SQL, Datenbank, adOpenDynamic, adLockOptimistic
    End With

Set DataGrid.DataSource = RS