我的程序老出问题，请高手帮我纠错

Dim dbf_name As database
Dim tab_name As Recordset

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.ConnectionString = "d:\practice\yonghuxinxi.dsn"

End Sub

Private Sub Command1_Click()
tab_name.AddNew

tab_name.Fields(1) = "cwj"
tab_name.Fields(2) = "211.71.77.202"
tab_name.Fields(3) = Date
tab_name.Fields(4) = Date
tab_name.Fields(5) = Date


tab_name.Update


End Sub

Private Sub Command2_Click()

tab_name.Edit

tab_name.Fields(1) = Text1.Text
tab_name.Update

End Sub

Private Sub Form_Load()

Set dbf_name = OpenDatabase("d:\practice\db1.mdb")

Set tab_name = dbf_name.OpenRecordset("select * from cc where id='cwj'")

End Sub
我运行以后，虽然没什么错，但是会弹出一个对话框提示我“adodc1取消操作”,怎么搞的