Visual Basic - ¿ QUE FALLA ? Por favor

Resulta que quier sumar el cntenido de todos los campos de una tabla que cumpan una doble condición, pero me sale 0, y los campos tiene valores, mi sentencia es la siguiente

Dim sumautilesvda As Double

sumautilesvdas = "select sum(m2utiles) from tablafincas where codpromocion = " & Val(cabcodpromocion) & " and tipofinca = 'VIVIENDA'"

Gracias.............

Nota por cierto, empezé de novato hace un año, y me estasis ayudando mucho, no dudo en ayudaros a vosotros

Si el codigo lo tienes exactamente como lo has puesto aqui en el foro, puede ser porque la variable tiene una \'s\' de mas. Puede ser que no te halla dado error de compilacion porque no pones Option Explicit.
Aclarame esto para intentar ayudarte.
Un saludo

prueba abriendo un recordset con una sola condicion (no la del val), sumala y ve si te da problemas. trata de desglosar todo el problema,a veces por ahorrar espacio se nos va algún detalle