求指导

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
End Sub
Private Sub Command2_Click()
x = MsgBox("确实要删除当前记录吗 ? ", vbYesNo + vbQuestion, "确认")
If x = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
Else
Adodc1.Refresh
End If
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.Update
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
End Sub
Private Sub Command4_Click()
Adodc1.Refresh
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
End Sub

这里哪里不对啊

求指导