Dim DB As Database
    Dim Tabelle As Recordset
 
    ' Datenbank öffnen
    Set DB = Workspaces(0).OpenDatabase(strFilename)
    Set Tabelle = DB.OpenRecordset(strTable)
 
    ' Datensätze hinzufügen
    Tabelle.AddNew
    Tabelle("Name") = strName
    Tabelle("Street") = strStreet
    ' Tabelle updaten
    Tabelle.Update
 
    ' Datenbank schließen
    Tabelle.Close
    DB.Close
    Set Tabelle = Nothing
    Set DB = Nothing

    Dim DB As Database
    Dim Tabelle As Recordset
    Dim strSQL As String
 
    ' Datenbank öffnen
    Set DB = Workspaces(0).OpenDatabase(strFilename)
    strSQL = "INSERT blablabla" ' Oder Select * usw. was man halt grad 
    ' braucht...
    Set Tabelle = DB.OpenRecordset(strSQL)
 
    ' Datenbank schließen
    Tabelle.Close
    DB.Close
    Set Tabelle = Nothing
    Set DB = Nothing