INSERT INTO Main(Id_main,поле1, поле2, поле3) SELECT id_main,поле1, поле2, поле3 FROM Import

 INSERT INTO Список1 (Id_main, 1 , 2 , 5 ) SELECT ID_main, 1 , 2 , 3  FROM Import
 
 INSERT INTO Список2 (Id_main, 1 , 2 , 5 ) SELECT ID_main, 1 , 2 , 3  FROM Import

INSERT INTO Список2 (Id_main, 10 , 12 , 13 ) SELECT ID_main, 10 , 12 , 13  FROM Import

dim rstImport as DAO.Recordset
dim rstMain as DAO.Recordset
dim List1 as DAO.Recordset
dim List2 as DAO.Recordet
dim ID as long
 set rstImport = CurrentDb.Openrecordset("Import")
 set rstMain = currentdb.Openrecordset("Main")
 set rstList1 = currentdb.OpenRecordset("List1")
 set rstList2 = currentdb.OpenRecordset("List2")
 do while not rstImport.EOF
  rstMain.AddNew
   rstMain!field1 = rstImport!field1
   ...
   id = rstMain!ID_main
  rstMain.Update
  rstList1.Addnew
   rstList1!id_main = id
   rstList1! 1  = rstImport! 1 
   ...
  rstList1.Update

  rstList2.Addnew
   rstList2!id_main = id
   rstList2! 10  = rstImport! 10 
   ...
  rstList1.Update
 
  rstImport.MoveNext
 loop