Access2010でQueryDefs

ADOでRecordsetを作ってそこからレポート出力をもくろみましたが、ちょっとハードルが高かったのでDAOで動的にクエリ作成しそこからレポートを作ることにしました。
（フォームのテキストボックスから値を拾ってSQLで都度動的にクエリを作る）

Public qdf As DAO.QueryDef　’変数を記載するモジュールなどにPublicで

'プロシージャ内に記載
Set qdf = CurrentDb.QueryDefs("動的なクエリ名")

strSql = ""
strSql = strSql & "SELECT "
strSql = strSql & "VAL(Q.SCANYYYY & Q.SCANMM & Q.SCANDD) AS SCANYMD,"
strSql = strSql & "Q.APNTDT AS 指定納期,"
strSql = strSql & "MID(Q.BARCODE_8,3,2) & '-' & MID(Q.BARCODE_8,5,4)& '-' & MID(Q.BARCODE_8,9,4) AS 受注No"
strSql = strSql & " FROM"
strSql = strSql & " qOutChkbn6 AS Q"
strSql = strSql & " LEFT JOIN  TOKUIPF AS T ON VAL(Q.CUSTMERCD) = T.TOKCD"

qdf.SQL = strSql
Set qdf = Nothing