Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim strSql As String
Set cn = CurrentProject.Connection
Set cmd.ActiveConnection = cn
strSql =  "select id from Contract where (start_date between  @DFROM and @DTO );" 
cmd.CommandText = strSql
cmd.Parameters( "@DFROM" ).Type = adDate
cmd.Parameters( "@DFROM" ) = CDate(# 1 / 1 / 1000 #)
cmd.Parameters( "@DTO" ).Type = adDate
cmd.Parameters( "@DTO" ) = CDate(# 1 / 1 / 3000 #)
rs.Open cmd
Debug.Print rs.RecordCount