スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります。
当方Access初心者です。
以下コードをデバックしながら実行すると、データは338件ある(※)のですが、
「'処理・・・・・・・」のコードに一度も入らず、
「rs.close」にとんでしまいます。
※:イミディエイトウィンドウにて確認しました。
　?Dcount("*", "Q_3")
   338
--------------------------------------------------------
Private Sub Cmd3_click()
   Dim rs As New ADODB.Recordset
    
   DoCmd.SetWarnings False
   DoCmd.OpenQuery "Q_3", acViewNormal, acReadOnly
   rs.Open "Q_3", CurrentProject.Connection
  
   Do Until rs.EOF
      '処理・・・・・・・
      rs.MoveNext
   Loop
   rs.Close
 
End Sub
--------------------------------------------------------
 
なぜ、「'処理・・・・・・・」に入らないのか理由が分からず、
色々調べてみたのですが、なかなか解決策を見つけられないので、
助けていただけますと幸いに存じます。
どうぞよろしくお願いいたします。

確認してないけど
 
   DoCmd.OpenQuery "Q_3", acViewNormal, acReadOnly
 
この行、コメントアウトしてみたら？

Mokoさん、ありがとうございます！
 
「DoCmd.OpenQuery "Q_3", acViewNormal, acReadOnly」
ですが、一度クエリを実行してから、その結果に対して処理をしようと思い書いているのですが、
 
「rs.Open "Q_3", CurrentProject.Connection」
と書くことで、既に実行結果を開いていることになるかご教授いただけますでしょうか？
(さらに質問してしまい、すみません(汗))

引用:
DoCmd.OpenQuery "Q_3", acViewNormal, acReadOnly
rs.Open "Q_3", CurrentProject.Connection

引用:
「DoCmd.OpenQuery "Q_3", acViewNormal, acReadOnly」
ですが、一度クエリを実行してから、その結果に対して処理をしようと思い書いているのですが、

    Dim rs As DAO.Recordset
    DoCmd.OpenQuery "Q_3"
    Set rs = Screen.ActiveDatasheet.Recordset
    Do Until rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1) '先頭２列のデータをイミディエイトに出力
        '処理・・・・・・・
        rs.MoveNext
    Loop
    DoCmd.Close acQuery, "Q_3"

skさん
 
返信が遅れてしまい、すみません。
おかげさまで解決しました。
アドバイスををありがとうございましたm(__)m

hatenaさん
 
お忙しい中、ご丁寧なご教示をありがとうございます。
返信が遅くなってしまい、すみませんでした。
おかげさまでうまくいきました。
具体的に詳細を記載いただき、大変助かりました。
本当にありがとうございました。

kosumosudaisuki さんの引用:
hatenaさん
 
お忙しい中、ご丁寧なご教示をありがとうございます。
返信が遅くなってしまい、すみませんでした。
おかげさまでうまくいきました。
具体的に詳細を記載いただき、大変助かりました。
本当にありがとうございました。