Private Sub Command4_Click()
On Error Resume Next
Dim total As Double
total = 0
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
total = total + Adodc1.Recordset.Fields("pay").Value
Adodc1.Recordset.MoveNext
Wend

Text1.Text = Str(total)

End Sub

把on error关了，就是运行时系统提示“要求对象”