Puoi fare una cosa simile
Dim qdf As DAO.QueryDef
Dim strTxt As String
For each qdf in DbEngine(0)(0).QueryDefs
strTxt=qdf.SQL
strTxt=Replace(strTxt,"carte da parati","Rivestimenti murari")
qdf.SQL=strTxt
Next
Lancia questo codice, ma fatti un BackUp...!