Вставка набора записей в таблицу

sDat = "#" & MyTime & "#"
    If sDat = "##" Then
        sSQL = "SELECT * FROM tblProductionReport"
    Else
        sDat = "#" & CStr(Day(MyTime)) & "/" & CStr(Month(MyTime)) & "/" & CStr(Year(MyTime)) & " " & CStr(TimeValue(MyTime)) & "#"
        sSQL = "SELECT * FROM tblProductionReport WHERE tblProductionReport.DocumentDate >" & sDat & ""
    End If
           
           ' Здесь я вытаскиваю набор записей с сервера 
              Set БазаДанных = OpenDatabase(Name:="" & MyBase & "",_ Options:=True)
              
              Set Запись = БазаДанных.OpenRecordset(sSQL, dbReadOnly)
              Запись.MoveLast
              z = Запись.RecordCount
' Здесь внутри своей базы я я создаю набор и внего запихиваю уже 'имеющийся набор записей, здесь как то надо создать
' выполяемый запрос со внешним источником             
Set MyRecordset = CurrentDb.OpenRecordset("tblProductionReportSum",_ dbOpenDynaset)
              Запись.MoveFirst
              For i = 1 To z
                         MyRecordset.AddNew
                            For n = 0 To Запись.Fields.Count - 1
                               MyRecordset.Fields(n).Value = Запись.Fields_(n).Value
                            Next
                         MyRecordset.Update
                     Запись.MoveNext
              Next
              Запись.MovePrevious
              LastTime = Запись.Fields(0).Value
              Запись.Close
              БазаДанных.Close

Sub q6() 'Запрос на добавление из Temp.mdb в Временные файлы.mdb
Dim WS1 As Workspace
Dim DB1 As Database
Set WS1 = DBEngine.Workspaces(0)
Set DB1 = WS1.OpenDatabase("D:Temp.mdb", False, False)
DB1.Execute ("INSERT INTO [Объекты внутренняя] ( 1, 2, 3 ) IN 'D:Documents and SettingsАдминистратор.USERРабочий столВременные файлы.mdb'" _
& " SELECT Объект.Ключ, Объект.Комплекс, Объект.Объект FROM Объект;")
DB1.Close
WS1.Close
Set DB1 = Nothing
Set WS1 = Nothing
End Sub

    If IsNull(MyTime) Then
      wDat = ""
    Else
      'Visual Basic требует использования в инструкциях SQL англо-американских форматов даты
      wDat = " WHERE tblProductionReport.DocumentDate > #" & CStr(Month(MyTime)) & "/" & CStr(Day(MyTime)) & "/" & CStr(Year(MyTime)) & " " & CStr(TimeValue(MyTime)) & "#"
    End If
 
    For i = 1 To CountDataBase 'Количество баз данных
      'Здесь должен быть фрагмент для определения MyBase в зависимости от i
      sSQL = "SELECT * FROM tblProductionReport IN """ & MyBase & """" & wDat
      CurrentDb.Execute ("INSERT INTO tblProductionReportSum " & sSQL)
    Next