Private Sub Form_Load()
 
'Deklarationen für die lokale Datenbank...
Public Datenbank As Database
Public Auswahl As DAO.Recordset
Public SQL_Ausdruck As String
 
'Deklarationen für die Datenbank auf Netzlaufwerk...
Public UpdateDatabase As Database
Public UpdateAuswahl As DAO.Recordset
Public SQL_Statement As String
 
'Zuweisungen...
    Set frm_Abvernis.UpdateDatabase = OpenDatabase("S:\Abvernis\Abvernis.mdb")
 
    'Es werden die neuen Datensätze der öffentlichen Datenbank der lokalen 
    ' Datenbank hinzugefügt...
    'Weise SQL-Statement zu...
    frm_Abvernis.SQL_Statement = "SELECT * FROM Abvernis;"
 
    'Schreibe SQL-Steatement...
    Set frm_Abvernis.UpdateAuswahl = frm_Abvernis.UpdateDatabase.OpenRecordset( _
      frm_Abvernis.SQL_Statement)
 
    'Springe auf ersten Datensatz...
    frm_Abvernis.UpdateAuswahl.MoveFirst
 
    'Weise SQL-Statement zu...
    frm_Abvernis.SQL_Ausdruck = "INSERT INTO Abvernis (Abkürzung, Langform," & _
      "Bezeichnung) VALUES" + _
                                "('" + frm_Abvernis.UpdateAuswahl.Fields( _
                                "Abkürzung") + _
                                "', '" + frm_Abvernis.UpdateAuswahl.Fields( _
                                "Langform") + _
                                "', '" + frm_Abvernis.UpdateAuswahl.Fields( _
                                "Bezeichnung") + _
                                "');"
 
    'Durchlaufe Schleife bis End-of-file...
    Do Until frm_Abvernis.UpdateAuswahl.EOF
        'Führe SQL-Statement aus...
        frm_Abvernis.Datenbank.Execute (frm_Abvernis.SQL_Ausdruck)
 
'Zeige aktuellen Inhalt der UpdateAuswahl an...
        'DAS GESCHIEHT EINWANDFREI!!!
        'ABER in der lokalen Datenbank sind keine neuen Daten vorhanden!!! 
        MsgBox frm_Abvernis.UpdateAuswahl.Fields("Abkürzung") + vbTab + _
          frm_Abvernis.UpdateAuswahl.Fields("Langform")
 
        'Springe zum nächsten Datensatz...
        frm_Abvernis.UpdateAuswahl.MoveNext
    Loop '...Schleifenende
 
    'Die Listbox wird gelöscht...
    frm_Abvernis.lst_Datenbankinhalt.Clear
    'Aktualisierte Datenbank wird eingelesen...
    DatenbankEinlesen
 
    'Datenbank auf Netzlaufwerk wird geschlossen...
    frm_Abvernis.UpdateAuswahl.Close
    frm_Abvernis.UpdateDatabase.Close
    Set frm_Abvernis.UpdateAuswahl = Nothing
    Set frm_Abvernis.UpdateDatabase = Nothing
 
    'Lokale Datenbank wird geschlossen...
    frm_Abvernis.Auswahl.Close
    frm_Abvernis.Datenbank.Close
    Set frm_Abvernis.Auswahl = Nothing
    Set frm_Abvernis.Datenbank = Nothing
End Sub