Поправьте, плз, функцию.

Есть запрос z_site_zapchasti_dlya_importa
в нем поле Product_name содержит неисправленные названия
и поле namenew в котором должны появится исправленные названия, которые вызываются в запросе функцией zameny

namenew: zameny(Product_name)

таблица замен t_site_zameny_nazvaniy содержит поля name_bylo и name_stalo

приведенный код ничего не меняет в запросе, подскажите, где я накосячил?

Public Function zameny(поле)
Set rstTrans = CurrentDb.OpenRecordset("t_site_zameny_nazvaniy")
Set rst = CurrentDb.OpenRecordset("z_site_zapchasti_dlya_importa")
rstTrans.MoveFirst
Do While Not rstTrans.EOF
    rst.MoveFirst
    Do While Not rst.EOF
            If InStr(rst!, rstTrans!name_bylo) = 1 Then
            rst.Edit
            rst!namenew = Replace(rst!namenew, rstTrans!name_bylo, Nz(rstTrans!name_stalo, ""))
            rst.Update
            Exit Do
        Else
            rst.MoveNext
        End If
    Loop
    rstTrans.MoveNext
Loop

rst.Close
Set rst = Nothing
End Function

http://www.sql.ru/forum/1110905/poisk-chasti-teksta-v-stroke-i-zamena-na-znachenie-iz-podstanovochnoy-tablicy