Set db = CurrentDb() Set rs = db.OpenRecordset(" select dbo_UPR_1214.kod_upr, dbo_StrEd_18.nStrEd FROM dbo_UPR_1214, dbo_StrEd_18, [Excel 12.0 xml;HDR=Yes;IMEX=1;DATABASE=" & Me.Form.l1.Value & "].[1$] AS Ex Where dbo_UPR_1214.kod_upr = Ex.[ ] ")
http://www.sql.ru/forum/1194585/oshibka-v-zaprose