Function LoadRP_FS() As String
    Dim stDocName As String
    Dim QD As QueryDef
    DoCmd.SetWarnings False
    Set QD = CurrentDb.QueryDefs("QA_newRP")
    QD.Execute
    QD.Close
    Set QD = Nothing
    DoCmd.SetWarnings True
    End Function

INSERT INTO notloadData (...)
SELECT ...
FROM ...
GROUP BY ...
HAVING ...
ORDER BY ...

Function LoadRP_Sel(foid As Long) As String
     Dim stDocName As String
     Dim QD As QueryDef
    
     DoCmd.SetWarnings False
     Set QD = CurrentDb.QueryDefs("QA_LoadRP")
     QD.Parameters("foid") = foid
     QD.Execute
     Set QD = CurrentDb.QueryDefs("QA_Loadrez1")
     QD.Parameters("foid") = foid
     QD.Execute
     Set QD = CurrentDb.QueryDefs("QA_Loadrez2")
     QD.Parameters("foid") = foid
     QD.Execute
     Set QD = CurrentDb.QueryDefs("QD_loadRP")
     QD.Execute
     Set QD = CurrentDb.QueryDefs("QD_loadrez")
     QD.Execute
     QD.Close
     Set QD = Nothing
     DoCmd.SetWarnings True
     LoadRP_Sel = CStr(foid)
    
    End Function

INSERT INTO t_RP ( ...)
SELECT ...
FROM ...
WHERE (...);

INSERT INTO ... ( ...)
SELECT ...
FROM ...
WHERE (...);

INSERT INTO ... ( ...)
SELECT ...
FROM ...
WHERE (...);

DELETE ...
FROM ...
WHERE ...

DELETE ...
FROM ...
WHERE ...

procedure TMyThread.Execute;
begin
  Fmain.dxBarLargeButton1.Enabled:=false;
  Synchronize(newRP);
   try
     //GetADOC(PADOC);
    // Fmain.RunAccProc('LoadRP_FS',nil);
     accApp:= CreateOleObject('Access.Application');
     accApp.OpenCurrentDatabase(ExtractFilePath(application.ExeName)+'Statistica.mdb', false, '');
     accApp.Run('LoadRP_FS');
     accApp.Quit;
     accApp:= Unassigned;
     except
      ShowMessage('Невозможно выполнить процедуру -LoadRP_FS');
    end;
  Fmain.checknewrp;
  Fmain.dxBarLargeButton1.Enabled:=true;
  ThreadRP.Terminate;
end;