根據
http://www.wnvs.cyc.edu.tw/ebook/ADO.htm
https://docs.microsoft.com/zh-tw/sql...ql-server-2017
這兩篇的列印技巧
應該是用 驚嘆號(!)來做欄位區隔
Print #m_num, RS("日期"), Count(日期)
改成
Print #m_num, RS!日期 '<<<RS!欄位名稱
SQL裡的過濾語法有兩種
一種是在 OPEN時實現 (一次寫清楚)
另一種是OPEN後利用 .方法達成，比如有
排列方法 : .Sort =
過濾方法 : .Filter =
所以你的問題其程式碼結構是:
OPEN SQL語法
再用 SELECT COUNT 下達計數
最後用
Dim i as integer
Do While Not RS.EOF
i=i+1
Print #m_num, RS!日期, i '一筆一筆的Print處理
Loop
============
以上未經試驗，因為說來慚愧幾乎不怎麼用 SQL過