Tekrar yardımlarınız için teşekkür ederim. Biraz araştırıp biraz deneme yanılma ile biraz atoz ve ozanakkaya uzmanlarımızın verdiği bilgiler ile hallettim sanırım.

Public Sub sil_taslakici()

Dim rS As New ADODB.Recordset

rS.Open "SELECT ReceteTaslakNo FROM T_RECETETASLAKMALIYET WHERE ReceteTaslakNo =" & Me.taslakno, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rS.EOF = True Then

    Exit Sub

Else

    Do Until rS.EOF

    If rS.RecordCount <> 0 Then

    rS.Delete

    End If

    rS.MoveNext

    Loop

    rS.Close

    MsgBox "Kayıt silindi", vbInformation

End If

End Sub

Bu şekilde bir silme işlemi yaptırdım ve sorun çıkmadı.
Eğer bir hata veya daha sonra başıma sıkıntı çıkartacak bir yazım oldu ise uyarırsanız sevinirim. Herkese saygılar.
Cevaplandıya taşınabilir.