Option Compare Database
Option Explicit

Public Function breakSQL(sSQL As String)
Dim sE As String, sSQLb As String
ReDim sB( 3 ) As String
    sB( 0 ) =  "DELETE" 
    sB( 1 ) =  "INSERT" 
    sB( 2 ) =  "UPDATE" 
    sB( 3 ) =  "PROCEDURE" 
Dim pos As Long, i As Long, posB As Long, pMin As Long
    pos = InStr( 1 , sSQL,  ";" ) ', vbDatabaseCompare)
    If pos > 0 Then
        pMin = 0
        sE = Mid(sSQL, pos)
        For i = 0 To UBound(sB)
            posB = InStr(1, sE, sB(i))
            If (pMin = 0) Or (pMin > posB) Then
                pMin = posB
            End If
        Next i
        'опускаем проверку синтаскической верности
        ' и всякие анализы "комментариев" в строке дампа
        ' добавим по мере необходимости
        pos = pos + posB
        sSQLb = Left(sSQL, pos)
        sSQL = Mid(sSQL, pos +  1 )
    Else
        sSQLb = sSQL
        sSQL =  ""
    End If
    breakSQL = sSQLb
End Function

Public Function assaSQL(qName As String) As Long
Dim sSQL As String, sB As String, n As Long
Dim db As Database
On Error GoTo err_assaSQL
    sSQL = CurrentDb.QueryDefs(qName).SQL
    'тут можно засандалить транзакцию - в зависимости от
    Do While True
        sB = breakSQL(sSQL)
        Set db = CurrentDb
        If Trim(sB) <> "" Then db.Execute sB
        n = n + db.RecordsAffected
        If sSQL = "" Then Exit Do
    Loop
ex_assaSQL:
    Set db = Nothing
    assaSQL = n
    MsgBox "Изменено записей " & n
    Exit Function
err_assaSQL:
    'assaSQL = False
    'если транзакцией - покумекать
    MsgBox Err.Description & "  " & sB
    Resume ex_assaSQL:
End Function