integrate sql selection with between 2 dates

[sal21]

I have this sql... i need to integrate the sql selction with a range of dates, how to?
The field of date is named DATE_ACC.

SQL = "SELECT COD_PERSONA, COD_SPORT_RAD, COD_CONTO, DATA_ACC ,DATA_EST, INATT, INCAG, SOFFER, DIVISA, COD_SEG_AD, COPE_INTEST, DATA_IMM_RICH_CHIU, DATA_RIFER_CHIU, COD_SET_BNL, COD_PTF_COMMLE, PROD_MKT, SALDO_CONT, DATA_RILEVAZIONE from [CC_DAILY] WHERE [TIPO_DATO]='" & TEST_TIPO & "' ORDER BY COD_SPORT_RAD, COD_CONTO"

this is the function to return the steep of dates...

Sub PRIMO_E_ULTIMO_GIORNO_DEL_MESE()

Dim FIRST_DAY As Date, LAST_DAY As Date

FIRST_DAY = DateSerial(Year(Date), Month(Date) - 1, 1)
LAST_DAY = Date - Day(Date)

End Sub

note:
the table is on the sql server

[HansV]

You must define FIRST_DAY and LAST_DAY within the same procedure as the SQL string:

Dim FIRST_DAY As Date, LAST_DAY As Date

FIRST_DAY = DateSerial(Year(Date), Month(Date) - 1, 1)
LAST_DAY = Date - Day(Date)

SQL = "SELECT COD_PERSONA, COD_SPORT_RAD, COD_CONTO, DATA_ACC ,DATA_EST, INATT, INCAG, SOFFER, DIVISA, COD_SEG_AD, COPE_INTEST, DATA_IMM_RICH_CHIU, DATA_RIFER_CHIU, COD_SET_BNL, COD_PTF_COMMLE, PROD_MKT, SALDO_CONT, DATA_RILEVAZIONE from CC_DAILY WHERE TIPO_DATO='" & TEST_TIPO & "' AND DATA_ACC BETWEEN '" & FIRST_DAY & "' AND '" & LAST_DAY & "' ORDER BY COD_SPORT_RAD, COD_CONTO"

[sal21]

You must define FIRST_DAY and LAST_DAY within the same procedure as the SQL string:

Dim FIRST_DAY As Date, LAST_DAY As Date

FIRST_DAY = DateSerial(Year(Date), Month(Date) - 1, 1)
LAST_DAY = Date - Day(Date)

SQL = "SELECT COD_PERSONA, COD_SPORT_RAD, COD_CONTO, DATA_ACC ,DATA_EST, INATT, INCAG, SOFFER, DIVISA, COD_SEG_AD, COPE_INTEST, DATA_IMM_RICH_CHIU, DATA_RIFER_CHIU, COD_SET_BNL, COD_PTF_COMMLE, PROD_MKT, SALDO_CONT, DATA_RILEVAZIONE from CC_DAILY WHERE TIPO_DATO='" & TEST_TIPO & "' AND DATA_ACC BETWEEN '" & FIRST_DAY & "' AND '" & LAST_DAY & "' ORDER BY COD_SPORT_RAD, COD_CONTO"

Tks as usual.


pk resolved my self....