关于两个关联的表的数据删除有关问题

关于两个关联的表的数据删除问题
有两个表A和B A的字段为a,b B的字段为a,c 现在我想同时删除两个表中字段b=text1.text时候的所有数据，写了如下代码，但执行后那些数据依然没有被删掉，请问各位高手这代码哪里有问题？

Private Sub deletep_Click() 
Dim n As Integer
Dim sql As String
Adodc1.CommandType = adCmdText
sql = "select * from A,B where A.a=B.a and A.b='" & text1.Text & "'"
Adodc1.RecordSource = sql
Adodc1.Refresh
Do While Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Update
End Sub
------解决方案--------------------
不行，没有建立关联的跨表查询的删除需要逐表进行。

例如：

Adodc1.Recordset.ActiveConnection.Execute "DELETE FROM B WHERE B.a IN (SELECT A.a FROM A WHERE A.b = '" & text1.Text & "'")

Adodc1.Recordset.ActiveConnection.Execute "DELETE FROM A WHERE A.b = '" & text1.Text & "'"

至于如何建立关联去进行相关删除，我也不知道。