Código:
SELECT COUNT(*) FROM tabla
WHERE MID(programa,1,4) = '5370'
Importante y NO me voy a cansar de escribirlo... Internet es una gran enciclopedia donde casi podes encontrar de todo.
MID ACCESS. También está la ayuda en línea de access.
Una observación... Tener guardado en un solo campo el código y descripción es un gran desperdicio, existe duplicidad de datos y el concepto de BD relacionales es eliminar lo más que se pueda la duplicidad de datos.