質問: db.openrecordset(strsql)
回答: option explicit public strsql as string public i, j, tol, cnt as integer public rsflt, rstbl as dao.recordset public db as database '------------------------------------------------ public sub qqq() set db = currentdb strsql = "select * from [q-order用] where id='" & [forms]![f-order用]![idbox] & "'" set rsflt = db.openrecordset(strsql) '------------------------------------------------ とすれば、いいですよ。変数の宣言をプロシージャの中ではなく、外で宣言してください。