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

[xirenshen]

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取消操作”,怎么搞的

[xirenshen]

有没有学adodb的捷径，请介绍我有关类似的源程序的网站

[suhu]

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

这个过程你做什么用？移动记录前，你为什么要重设连接？而又不关闭。
没用的话去了它。

[lovingkiss]

没看明白；

[ykytw]

up

[daryl715]

为什么用控件
直接用adodb