Private Sub Command1_Click()
Dim strDatei_Access As String              'Zieldatei Access
    Dim strTab_Access As String                'Tabellenname Access
    Dim DB1 As DAO.Database                    'Verweis auf Microsoft DAO 3.6 
    ' Object Library muss gesetzt sein, ansonsten kommt es zu einem 
    ' Laufzeitfehler
    strDatei_Access = "e:\programm\aufr.mdb"   'AccessDB-Namen anpassen
    strTab_Access = "Artikel"                 'Tabellename anpassen