vb -2147217864

他是实時錯误.无法為更新定位行.一些值可能己在最后一次读取后己更改.

我是在vb上弄了一些数据.然后插入access中里的查询中(查询是用兩个表的資料出來的,一个表有字段t1,t2,t3,一个表有
字段b1,b2,b3..查询是t1,t2,t3,b1,b2,b3...t3的資料是找b1中对应的字段)
我是用ado綁定的..在vb就显示了text1是t1的字段,text2是t2的字段,text3是b1的字段,text4是b2的字段,text5是b3的字段,text6是t3的字段
就的新增一个输入資料确定后資料就新增到access中t1,t2,t3,b1,b2,b3
但在删除的時候..按了就出現这个了..結束之后access中的对应的資源都删除了..
删除是删除..但出現錯誤了..
有高手教教小弟ma....

Private Sub Command2_Click(Index As Integer)
Dim ask As Integer
Dim amm As Integer

Select Case Index
Case 0
 Adodc1.Recordset.AddNew
Case 1
 ask = MsgBox("是否删除记录", vbYesNo, "删除记录")
 If ask = 6 Then

 Adodc1.Recordset.Delete
 Adodc1.Recordset.MovePrevious
 
 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast

 End If
Case 2
amm = MsgBox("是否更新记录", vbYesNo, "更新记录")
If amm = 6 Then

Text7.Text = Text2.Text
Adodc1.Recordset.Update
Else
Adodc1.Recordset.CancelUpdate
End If
Case 3
 Adodc1.Recordset.CancelUpdate
Case 4
 Form1.Show
 Form3.Visible = False
End Select

--------------------编程问答-------------------- 为你的表增加自动编号ID（你的表缺少唯一的ID字段）

出错原因是表中有重复记录，程序不知道该删除哪条 --------------------编程问答-------------------- 那我是在那个表做呢? --------------------编程问答-------------------- 最好两张表都加上。
--------------------编程问答-------------------- UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

补充：VB ,  基础类