Имеется процедура. В результате ее выполнения выдается реплика:
"Object variable or With block variable not set". Почему????

Public Sub Set_Query_Svodka_Zagr(ByVal datN As Date, ByVal datK As Date)
Dim db As Database
Dim rs As Recordset
Dim datTmp As Date
Dim qry As QueryDef
Dim str1, str2, str3, str4 As String

Set db = CurrentDb
Set qry = db.QueryDefs("Сводка_Загрузка")

str1 = "SELECT Part1.*"
str3 = "FROM (SELECT Рейс, Гор1, Гор2, Класс " _
& "FROM dbo.Формат_Заг " _
& "Where ДатВыл between '" & Format(datN, "mm\/dd\/yy") & "' and '" _
& Format(datK, "mm\/dd\/yy") & "' " _
& "GROUP BY Рейс, Гор1, Гор2, Класс ) Part1 "
str4 = ""

For datTmp = datN To datK
str2 = str2 & ", Part" & Format(datTmp, "ddmmyy") & ".Б AS '" & Format(datTmp, "ddmmyy") & "(КМ)', " _
& "Part" & Format(datTmp, "ddmmyy") & ".ЛоБ AS '" & Format(datTmp, "ddmmyy") & "(ЛО)', " _
& "Part" & Format(datTmp, "ddmmyy") & ".БроньБ AS '" & Format(datTmp, "ddmmyy") & "(Бронь)' "
str4 = str4 & "FULL OUTER JOIN (SELECT * " _
& "FROM Формат_Заг " _
& "WHERE ДатВыл = '" & Format(datTmp, "mm\/dd\/yy") & "') Part" & Format(datTmp, "ddmmyy") & " " _
& "ON Part1.Рейс = Part" & Format(datTmp, "ddmmyy") & ".Рейс AND " _
& "Part1.Гор1 = Part" & Format(datTmp, "ddmmyy") & ".Гор1 AND Part1.Гор2 = Part" _
& Format(datTmp, "ddmmyy") & ".Гор2 AND Part1.Класс = Part" & Format(datTmp, "ddmmyy") & ".Класс "
Next datTmp
qry.SQL = str1 & str2 & str3 & str4 & ";"
db.Close

kedzoв какой строке?
реплика идет на комманду db.close.
ее я оставил в теле другой процедуры, в которую произходит возврат после выполнения этой процедуры.
db.close идет следом.