Visual Basic - Ayuda urgente con consulta SQL

Hola, tengo el mismo problema todavía, y es que después de haber cambiado los tipos de datos a numérico en la consulta SQL, me lo sigue tomando como texto....

Pongo aquí la consulta:

cSQL = "SELECT Facturas.Id_Factura, Facturas.Num_factura, Facturas.Año_factura, Facturas.Fecha_factura,"
cSQL = cSQL & " Facturas.TipoFactura, Facturas.totalaeuros, Facturas.canivaeuros, Facturas.importeeuros,"
cSQL = cSQL & " STACLIENTES.cod_cifc, STACLIENTES.razonsocial, STACLIENTES.domicilio_sol,"
cSQL = cSQL & " STACLIENTES.poblacion_sol, STACLIENTES.provincia_sol, STACLIENTES.cp_sol,"
cSQL = cSQL & " STACLIENTES.cod_subcta, CInt([Num_factura]) AS ValorFactura"
cSQL = cSQL & " FROM STACLIENTES INNER JOIN Facturas ON STACLIENTES.cod_ncc=Facturas.Cod_ncc"
cSQL = cSQL & " WHERE CInt(Facturas.Año_factura)= '" & CInt(Year(mskFechaInicial.Text)) & "' AND CDbl(Facturas.Num_factura) >= '" & CDbl(nFraInicial) & "' AND"
cSQL = cSQL & " CDbl(Facturas.Num_factura) <= '" & CDbl(nFraFinal) & "' AND CDate(Facturas.Fecha_factura) >= '" & CDate(dFecha) & "'"
cSQL = cSQL & " ORDER BY Val(Facturas.Año_factura) DESC, Val(Facturas.Num_factura) DESC;"
Set rcsConsulta = dbBaseDatos.OpenRecordset(cSQL, dbOpenSnapshot)

A ver si me podeis ayudar, por favor. No sé ya cómo hacer...
Muchas gracias y saludos.

todo lo que se pone entre comillas es considerado como cadena, o sea esto " where cint( mycampo) = " & cint( myvalor ) es
" where cint( mycampo ) = 5 "por ejemplo, osea nada que ver, si tomamos este ejemplo y si el campo "mycampo" es de coma flotante y quires los campos que tengan parte entera=5, entonces puedes por ejemplo:

" where mycampo<6 and mycampo>=5" o en tu caso:
" where mycampo<" & cstr(cint( myvalor+1)) & " and mycampo>=" & cstr(cint( myvalor) )