Làm cách nào để tìm và xoá 1 chữ Query của Access

[chomchomsg]

Chào mọi người,
Mình cần viết 1 đoạn VBA dùng để tìm xoá 1 chữ trong tất cả các Query của Access.
Đoạn code dùng để tìm như thế này:

Function tr() As Integer
'this function serves to detect the string "expr" in each of the query
Dim qr As QueryDef
Dim SQLstring As String
Dim n As String
'loop through each query in the database
For Each qr In CurrentDb.QueryDefs
'store each query in a string
SQLstring = qr.sql

'for each query that matches the condition,
'keep a record of the query name in n
If InStr(1, SQLstring, "expr", vbDatabaseCompare) > 0 Then
n = n & qr.NAME & vbNewLine
End If
Next
'print out the results
MsgBox n
End Function

Đoạn code trên là để in ra tên của các Query có chữ "expr". Giờ mình muốn tự động xoá các chữ đó đi trong Query, nhưng ko bik làm cách nào. Mọi người giúp mình với