Set rsBegin = db.OpenRecordset(strBegin)
Set rsEnd = db.OpenRecordset(strEnd)


strTotal = "SELECT [1_02_03].Sh, IIf([1_02_03].[in_rub]<>0, " & _
"[1_02_03].[in_rub]*100/'[rsBegin].[in_rub]'-100,0) " & _
"AS delta_rub, IIf([1_02_03].[in_val]<>0, " & _
"[1_02_03].[in_val]*100/[1_01_03].[in_val]-100,0) AS delta2 " & _
"FROM 1_01_03 INNER JOIN 1_02_03 ON [1_01_03].Sh = [1_02_03].Sh;"

если strTotal изменить так:
strTotal = "SELECT [1_02_03].Sh, IIf([1_02_03].[in_rub]<>0, " & _
"[1_02_03].[in_rub]*100/'[rsBegin].[in_rub]'-100,0) " & _
"AS delta_rub, IIf([1_02_03].[in_val]<>0, " & _
"[1_02_03].[in_val]*100/[1_01_03].[in_val]-100,0) AS delta2 " & _
"FROM 1_01_03 INNER JOIN 1_02_03 ON '[rsBegin].Sh' = [1_02_03].Sh;"
^^^^^^^^
то все п..ц. Set rsTotal = db.OpenRecordset(strTotal) вызывает ошибку 3296 "Join expression not supported"
как быть ???