Este es el còdigo que tengo:
Cita: i=2
ca = CLng(txtañod.Text)
Do While ca <= CLng(txtañoh.Text)
'Creo una fecha como cadena
fechade = ca & "-" & 1 & "-" & 1
fechaha = ca & "-" & 12 & "-" & 31
'consulta
adoingresos.RecordSource = "select sum(cld_pag)as tot_ing from clidet where cld_fpa between 'fechade' AND 'fechaha'"
adoingresos.Refresh
If IsNull(adoingresos.Recordset.Fields("tot_ing")) = True Then
v(i) = 0
Else
v(i) = adoingresos.Recordset.Fields("tot_ing")
v2(i) = ca
End If
ca = ca + 1
i = i + 1
Loop