各位好：
我寫了一程式想選出所有五月份的資料，請高手改正我的錯誤。
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("日期") Like #5/1/2000# & "%" Then
s = ""
For I = 0 To Adodc1.Recordset.Fields.Count - 1
s = s & Adodc1.Recordset.Fields(I).Value & vbTab
Next
List1.AddItem s
End If
Adodc1.Recordset.MoveNext
Wend
用move next 方式一一對比找五月的資料.
先在此謝謝!