есть такой код:
a3 = "SELECT Sum(balance_old.in_rub) AS 0206val " & _
"FROM balance_old " & _
"WHERE (((balance_old.Filial) = 701) And ((balance_old.Val) <> 810) " & _
"And ((balance_old.Sh) > 42301)) GROUP BY balance_old.aDate " & _
"HAVING (((balance_old.aDate)>=#3/1/2003#));"

Set ra1 = db.OpenRecordset(a1)

Set rs1 = db.OpenRecordset("SELECT Avg(ra1.[42301]) AS dovostr FROM ra1;")

в последней строчке естественно облом "немогу найти ra1" как победить???

отвечаю сам:
Serge Gavrilov прав в нынешнем виде НИКАК!!!!!!!!
а вот в таком можно:

a3 = "SELECT Sum(Balance_old.in_rub) AS 0206val " & _
"FROM Balance_old " & _
"WHERE (((Balance_old.Filial) = " & filials(i) & ") And ((Balance_old.Val) <> 810) " & _
"And ((Balance_old.Sh) > 42301)) GROUP BY Balance_old.aDate " & _
"HAVING (((Balance_old.aDate)>=#3/1/2003#));"

Set ra1 = db.CreateQueryDef("aa1")
With ra1
.SQL = a1
Set raa1 = .OpenRecordset()
raa1.MoveFirst
End With

Set rs1 = db.OpenRecordset("SELECT Avg(aa1.[42301]) AS dovostr FROM aa1;")

дальше можно обращаться к результатам через: rs1![dovostr]
и конечно если работа в цикле db.QueryDefs.Delete ("aa1"), но с последним моментом по моему можно через nathing но у меня не получилось.

а Serge Gavrilov спасибо за ответ, полько например в моем случае скорре нужно было написать пример кода а не "сделайте ra1 сохраненным запросом", ибо я новичек в базах данных.