Private Sub Command5_Click()
Dim t As Double
Adodc1.Recordset.AddNew
Adodc1.Recordset.Update  问题出在这一句
t = Timer + 0.5
Do Until t < Timer
DoEvents
Loop
Adodc1.Refresh   
Adodc1.Recordset.MoveLast
End Sub

......................