Fatto:

TodaysDate = Month(Date) & "/" & Day(Date) & "/" & Year(Date)
TodaysDatePlus2 = DateAdd("m", 2, TodaysDate)

'Create Possible Vehicle Model Recordsets
Set rsVehiclesExpiring = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblVehicles Where TerminationDate Between #" & TodaysDate & "# And #" & TodaysDatePlus2 & "#"
'strSQL = "Select * from tblVehicles"
rsVehiclesExpiring.Open strS

Ma purtroppo non funziona