Public Sub DoSQL()
 
    Dim SQL As String
 
    SQL = "UPDATE Employees " & _
          "SET Employees.Title = 'Regional Sales Manager' " & _
          "WHERE Employees.Title = 'Sales Manager'"
 
    DoCmd.RunSQL SQL
 
End Sub

Ihrgend wie geht alles ,wenn mann nicht alles so verkniffen sieht!
vbarchiv einfach LOLL