me.RecordSource = "EXEC getMyTable 1 " 

With CurrentProject.Connection
On Error Resume Next
'Удаляем если осталась с прошлого сеанса'
.Execute  "drop TABLE #TempPlatToFrZarplata" 
On Error GoTo  0 

'Создаем запросом временную таблицу'
.Execute  "SELECT  idplat,  rur_src_kt as ktplat, info, 0  AS id_sotr, " & findep_id & _
 " AS id_findep   INTO #TempPlatToFrZarplata FROM         dbo.plat p   WHERE     DATEPART(m, dataplat) = DATEPART(m, "  & _
SqlData(zp_date_plat) &  ") AND DATEPART(yyyy, dataplat) = DATEPART(yyyy, "  & _
SqlData(zp_date_plat) &  ") AND def_st_rasp = 76  AND PartOf IS NULL AND ongroup = " & findep_id &  "  AND info LIKE N'% зп %'" 


'Добавляем первичный ключ чтоб можно было ресинхронизировать'
.Execute  "ALTER TABLE dbo.#TempPlatToFrZarplata ADD CONSTRAINT PK_TempPlatToFrZarplata PRIMARY KEY CLUSTERED ( idplat) ON [PRIMARY]" 


....

'прочие скрипты обработки временной таблицы'
...

'Открываем временную таблицу в рекордсет'
Src.Open  "select idplat,   ktplat, info,  id_sotr,  id_findep from #TempPlatToFrZarplata" , _
CurrentProject.Connection, adOpenDynamic, adLockOptimistic


'Назначаем рекордсет форме'
Set Me.Recordset = Src
Me.ResyncCommand =  "select idplat,   ktplat, info,  id_sotr,  id_findep from #TempPlatToFrZarplata  where idplat = ?" 
Me.UniqueTable =  "#TempPlatToFrZarplata" 

End With