我的程序老出问题,请高手帮我纠错
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取消操作”,怎么搞的