死循环了？

Question

我使用以下代码计算平均分，可竟然无限循环了，为何啊？Dim n As Integer
Dim m As Doublen = Adodc1.Recordset.RecordCountDo While Not Adodc1.Recordset.EOF
   Adodc1.Recordset.MoveFirst
   m = m + IIf(IsNull(Adodc1.Recordset.Fields("总分").Value), 0, Adodc1.Recordset.Fields("总分").Value)
   Adodc1.Recordset.MoveNext
   Loop
Text1.Text = m / n

Answer 1

Do While Not Adodc1.Recordset.EOF
   Adodc1.Recordset.MoveFirst
 

Answer 2

你又从头开始了。
Adodc1.Recordset.MoveFirst