удаляй сначала связанные или поставь в опциях связи галку Обеспечить целостной данных-->Каскадное удаление записей.

Как рекордсет открываешь?..

Мля... Да всё нормально удаляется, не надо ни чё ручками выискивать...:

<sup>sub iDelete()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\m.mdb;"
cn.Open

rs.Open "select * from ttt1", cn, adOpenDynamic, adLockOptimistic
rs.Find "nn=2"

If Not rs.EOF Then rs.Delete

on error resume next
if cn.state=adstateopen then cn.close:set cn = nothing
if rs.state=adstateopen then rs.close:set rs = nothing
end sub</sup>

при этом, если существует некая таблица ttt2, числовое поле nn_ttt1 которой связано с ключевым полем ttt1.nn, то все записи значение поля nn_ttt1=2 будут также удалены... конечно если в типе связи стоит Обеспечивать целостность данных-->Каскадное удаление....

2 hangkil
>>При использовании метода adodc.recordset.delete он говорит текущий recordset не поддерживает обновление это связано с ограничение поставщика или с выбранным типом блокировки

>>rs_text.Open "cdtext"


открывая таким образом набор записей (не указывая типа курсора и режима блоктровки), ты создаёшь статистический курсор только для чтения. Не удивительно, что vb ругается....

в предыдущей своей мессаге допустил неточность: тип курсора по умолчанию ForwardOnly (обеспечивает перемещение курсора только впред и только для чтения), режим блокировки также только для чтения. Т.е. открывая рекордсет как, ты не сможешь даже полноценно пользоваться методом Find, не говоря уже об удалении и модификации данных...