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:\Datenbanken\Auftr.mdb"   'AccessDB-Namen anpassen
    strTab_Access = "Artikel"                 'Tabellename anpassen
    Set DB1 = OpenDatabase(strDatei_Access)
    strsql = "UPDATE " & strTab_Access & " SET [L] = [K] " & _
             "WHERE (([A]) Is Null) OR (([A])='');"
             'Debug.Print strsql
    DB1.Execute strsql
    DB1.Close
    Set DB1 = Nothing
End Sub