Question

VB6.0中如何删除access数据库中的记录

文本框text1为输入需要删除的记录主键ID。 现在运行程序的情况是：例如要删除ID为“1”的记录，单机“删除”按钮，表中黑色三角指向的8条记录，即ID为“1”的记录，但没有删除的动作。

数据库为ACCESS，表名为：b1.

删除按钮的代码如下：
Private Sub Command2_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bike.mdb;Persist Security Info=False"
Adodc1.Visible = False
Recordset = "b1"
With Adodc1
.Recordset.Find "ID='" & Text1.Text & "'"
Adodc1.RecordSource = "Delete * from b1 where ID=Text1.Text"
Adodc1.RecordSource = "update * from b1"
End With

End Sub

Answer 1

dodc1.RecordSource = "Delete * from b1 where ID='" & Text1.Text & "'"

Adodc1.RecordSource = "update * from b1" 这个多余