'Verweis auf Microsoft DAO 3.6 Object Library Projekt --> Verweise
 
 
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\datenbank\Auftrag.mdb"   'AccessDB-Namen 
    ' anpassen
    strTab_Access = "Artikel"                 'Tabellename anpassen
    Set DB1 = OpenDatabase(strDatei_Access)
    strsql = "UPDATE Artikel SET [Spalte1] ='Kg'  WHERE [Spalte2] > 0"
             'Debug.Print strsql
 
'In Spalte 2 wird geprüft ob der Wert größer als 0 ist. Wenn ja wird in Spalte 
' 1 der Wert auf KG gesetzt
 
 
 
    DB1.Execute strsql
    DB1.Close
    Set DB1 = Nothing
 
    MsgBox "Ersetzen der Mengeneinheit abgeschlossen"
 
End Sub