Visual Basic - Instrucción SQL de borrado

Hola a todos.
La Siguiente instrucción SQL actualiza un registro con una condición.
¿Como debe debería ser para borrar un registro con la misma condición?

strSQL = "UPDATE Almacen SET Existen = Existen - " & _
SustituyeComaPunto(Redondear(nCantOT.Text, 2)) & _
" WHERE Codigo = '" & cCodigo & "'"

Creo que me contesto.

strSQL = "DELETE FROM Almacen " & _
" WHERE Codigo = '" & cCodigo & "'"

Por un minuto

strSQL = "DELETE FROM Almacen WHERE Codigo = '" & cCodigo & "'"

Gracias P3L30N2009
Saludos cordiales.