Visual Basic - sum en sql me tira error

hola chic@s tengo una consulta la que esta debajo

sql2 = "select fecha,fechacomp,fechavto,idprovee,tipo,nrofac,detalle,debe,haber,sum(debe - haber) as resul from cta_cte_pro where idprovee=" & txtcod & " "

rs.Open sql2, cn, adOpenDynamic
me tira este error

ha intentado ejecutar una consulta q no incluye la expresion especificada 'fecha' como parte de una funcion de agregado.

pero si hago esta no me lo tira el error
sql2 = "select sum(debe - haber) as resul from cta_cte_pro where idprovee=" & txtcod & " "
los campos deba y haber son numericos.
gracias

Claro utilizando la Fucnión Sum, Count, etc. necesitas realizar un Group, pero intenta esto:

sql2 = "select fecha,fechacomp,fechavto,idprovee,tipo,nrofac,detalle,debe,haber,(debe - haber) as resul from cta_cte_pro where idprovee=" & txtcod & " "

sql3 = "select sum(debe - haber) as resul from cta_cte_pro where idprovee=" & txtcod & " "

El sql3 lo puedes usar como un total del campo ¨resul¨