VBA連接數據庫的問題　[金字塔]

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=30622&star=1

看著里面的教程后，我自己寫了一段查詢的代碼

sub sjk_button_click()
  call DataInsert()
  Set adoConn=CreateObject("Adodb.Connection")
  '連接數據庫（數據指向是金字塔安裝目錄下的test.mdb，也可以自己更改想要的路徑）
   adoConn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=test.mdb"
  strSqlread="select max(id) as stockdate,price as 價格,sum(buyvol) as 主買,sum(vol) as 主賣,round(sum(buyvol)/sum(vol),3) as 競買率 from ada group by price; "
  Set rstTmp=CreateObject("ADODB.RecordSet")
   rstTmp.open strSqlread,adoConn
   aa=rstTmp("價格")
   sjk_text1=aa
   msgbox aa
  end sub

這里當我點擊按鈕結束后，為什么只出來第一個數據，而之后的97條記錄都沒有查到？

你要使用循環語句來讀取數據庫表的

用FOR EACH怎么迭代RStTMP 啊？

While Not rstTmp.EOF

aa=rstTmp("價格")
       sjk_text1=aa
   msgbox aa
   Wend

這個和FOR 循環都用了，

while不但是死循環，而且的出來的永遠是第一條數據。

for 循環了98次，并且得出來的也是第一條數據，根本沒有往下讀取。

AA=RSTMP('')這句話后面還需要加什么？