Sub DeinSubName()
    Dim sTABLE As String
    Dim sSpalte As String
    Dim sFinden As String
    Dim dbs As DAO.Database
 
    sTABLE = "DeinTabellenName"     'TabellenName einsetzen
    sSpalte = "DeinSpaltenname"     'SpaltenName einsetzen
    sFinden = Teilstring & ";"      'Suchstring einsetzen
 
    Set dbs = CurrentDb
    sSQL = "UPDATE " & sTABLE & " SET " & sSpalte & _
           " = Replace([" & sSpalte & "],'" & sFinden & "','');"
    dbs.Execute sSQL
    Set dbs = Nothing
End Sub