アクセスのクエリをVBで取得する

ちなみ 2004-04-04 11:37:04 No: 82851 IP: [192.*.*.*]

お世話になります。
アクセスのクエリをVBで取得することは可能なのでしょうか？
クエリを実行するのではなく、SQL文を取得したいのですが…

Say 2004-04-04 12:25:45 No: 82852 IP: [192.*.*.*]

Dim db As DAO.Database
    Dim qry As DAO.QueryDef
    Set db = Workspaces(0).OpenDatabase("db1.mdb")
    Set qry = db.QueryDefs("クエリ1")
    MsgBox qry.SQL
とか？

編集削除