Sub ModifyQueries()
Dim q As QueryDef 'описание переменной типа запрос'
For Each q In CurrentDb.QueryDefs 'заголовок цикла, проходящего по всем запросам текущей базы'
q.Sql = Replace(q.Sql,  """ Cumulative: """ ,  """ Current: """ ) 'замена селекта в очередном запросе
                                на селект, в котором то, что надо, заменено'
Next
End Sub

Sub ModifyQueries(sPath As String) 'добавлен параметр - местонахождение базы'
Dim db As DataBase 'описание переменной типа база'
Dim q As QueryDef
Set db = DBEngine.OpenDatabas(sPath) 'переменная начинает ссылаться на нужную базу'
For Each q In db.QueryDefs 'проходим не по текущей базе, а по db'
q.Sql = Replace(q.Sql,  """ Cumulative: """ ,  """ Current: """ )
Next
End Sub