Adodc1.Recordset.RecordCount问题！？急！！1

[hhfh]

Private Sub sum_money()
If Not Adodc1.Recordset.EOF Then
sim = 0
For i = 0 To Adodc1.Recordset.RecordCount - 1
sim = sim + Adodc1.Recordset.Fields(6).Value
Next
End If
Text2.Text = sim
End Sub

我想把Adodc1.Recordset.Fields(6).Value的值全加起来，我就问：
For i = 0 To Adodc1.Recordset.RecordCount - 1
For i = 1 To Adodc1.Recordset.RecordCount
以上哪个对？

[Pipi0714]

ADO的记录数很不正确最好用
判断是否结束的方法
来进行设计否则很容易发生问题

[foolishtiger]

都对

[palmkey]

sim = 0
For i = 0 To Adodc1.Recordset.RecordCount - 1
sim = sim + Adodc1.Recordset.Fields(6).Value
adodc1.recordset.movenext
Next
if isnumeric(sim) then Text2.Text = cstr(sim)
即可!