DoCmd.SetWarnings (False)
        DoCmd.OpenQuery "KeyFind:DEL"
        DoCmd.SetWarnings (True)
 
        Set Keys = CurrentDb.OpenRecordset("KeyFind")
 
        STArray = Split(Ways!Veld4, ";")
        For Each word In STArray
            If Len(word) > 0 Then

Dim Ways As DAO.Recordset
Dim ID_Old As String
Dim ID_New As String
Dim STArray() As String
Dim SaveTime As String

Set Ways = CurrentDb.OpenRecordset("Ways_Sorted")

Ways.MoveFirst

Dim word As Variant

    While Not Ways.EOF
     
        STArray = Split(Ways!Veld4, ";")

Ways!Veld4 = Replace(Ways!Veld4, ID_Old, ID_New)

    Dim Ways As DAO.Recordset
    Dim Keys As DAO.Recordset
    Dim Recordcount As Double
    Dim Records As Double
    Dim ID_Old As String
    Dim ID_New As String
    Dim STArray() As String
    Dim SaveTime As String
    
    Set Ways = CurrentDb.OpenRecordset("Ways_Sorted")