Si lo que quieres hacer es encontrarlo y borrarlo has esto
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "pidcompleta"
Tabla.Open "Select * From PID Where [PID]=Trim('" & Request("Registro") & "')",Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Arial">El registro <strong>NO</strong> ha sido encontrado
<%
Tabla.Delete
Else
%>
</p>
<p><font face="Arial">El registro ha sido <strong>eliminado</strong>
satisfactoriamente
<%
End If
Tabla.Close
Conexion.Close
%>
</font></font></body>
</html>
dentro del ELSE no puedes hacer nada con el registro porque no existe el registro.
Espero que te sirva.
Mai