Visual Basic - DELETE

amigos listeros,

talvez lo de abajo no tiene logica, pero queria saber como se puede y si se puede.
abro el recordset y sino existe es eof() y hare xxxxxx cosas , pero si ya existe lo borro
y queria saber como se le puede decir delete al record donde me encuentro posicionado
sin necesidad de repetir todo de nuevo Cnn.Execute "DELETE FROM pdat01_ c WHERE cia ='" & mcia & "' AND nopda ='" & txtnopda.Text & "'", mCuantos

Set rs0 = New ADODB.Recordset
Dim SQL As String
SQL$ = "SELECT * FROM pdat01_c"
SQL$ = SQL$ & " WHERE CIA = '" & mcia & "' "
SQL$ = SQL$ & " AND division = '" & mdivision & "'"
SQL$ = SQL$ & " AND nopda = '" & mnopda & "'"
SQL$ = SQL$ & " AND no_doc = '" & txtnodocumento.Text & "'"
SQL$ = SQL$ & " AND fecha = #" & Format$(DTPicker1.Value, "YYYY/MM/DD") & "#"
rs0.Open SQL, Cnn, adOpenDynamic, adLockPessimistic, adOpenKeyset, adLockPessimistic

If rs0.EOF() Then

bla, bla, bla, bla

Else

DELETE

End If

La verdad que no entiendo mucho porque lo deseas así cuando lo puedes hacer perfectamente como lo has indicado al principio, pero tendrás tus razones. ¿Has probado a realizar un bucle y borrar todos los registros del recordset? + 0 - así:
for i=0 to rs.recorcount-1
rs.delete
rs.movenext
next

No sé si te valdra para algo.