Como puedo hacer esto con DoCmd.RunSQL

Tengo un formulario CATALOGO DE PUESTOS DE TRABAJO y una casilla de verificación BajaCatalogo, lo que hago es verificar que al marcar la baja comprueba que no existe ese puesto en el tabla PLANTILLA. Creo la consulta ExsiteCodCatalogo:

SELECT [PLANTILLA].CODCATALOGO
FROM [PLANTILLA]
WHERE ((([PLANTILLA].CODCATALOGO)=[Formularios]![CATALOGO DE PUESTOS DE TRABAJO]![CODCATALOGO]));

y en la casilla de verificación tengo:

Private Sub BajaCatalogo_BeforeUpdate(Cancel As Integer)

Dim Resultado As Variant
If BajaCatalogo = -1 Then
Resultado = DLookup("CODCATALOGO", "ExisteCodCatalogo")
If Not IsNull(Resultado) Then
MsgBox "No puede dar de baja existen registro activos", vbInformation, "Catalogo"
Cancel = True
End If
End If

End Sub

Me funciona perfectamente, pero no soy capaz de hacerlo directamente con DoCmd RunSQL, en más elegante y de paso evito crear consultas, que ya tengo muchas.
Podría alquién orientarme con el código. Gracias.