数据库 这样写为什么总是出错？

Question

Form1.Adodc1.CursorType = adOpenDynamic
Form1.Adodc1.CommandType = adCmdText '将Source作为命令
Form1.Adodc1.RecordSource = "SELECT * FROM shinegoo where 时间 like '%" & Sts & "%'"
Form1.Adodc1.Refresh
Form1.ListView1.ListItems.Clear
i = 0
Do While i <= Form1.Adodc1.Recordset.RecordCount
Module1.inbiao Form1.Adodc1.Recordset.Fields(0), Form1.Adodc1.Recordset.Fields(1)
Form1.Adodc1.Recordset.MoveNext     '''是这一句出错了！！！！！
i = i + 1
Loop

Answer 1

Do While i <= Form1.Adodc1.Recordset.RecordCount  (如果还要这样,改为i < Form1.Adodc1.Recordset.RecordCount)
Module1.inbiao Form1.Adodc1.Recordset.Fields(0), Form1.Adodc1.Recordset.Fields(1) 
Form1.Adodc1.Recordset.MoveNext    
'i = form1.Adodc1.Recordset.RecordCount 不能再 MoveNext 
i = i + 1 
Loop改为:while not Form1.Adodc1.Recordset.eof
  Module1.inbiao Form1.Adodc1.Recordset.Fields(0), Form1.Adodc1.Recordset.Fields(1) 
  Form1.Adodc1.Recordset.MoveNext 
wend