(Copia) ayuda con consulta entre fecha y seleccion

[ElN00b]

Por favor, se que soy nuevo en este foro, y la verdad es que no intento llamar la atencion solo pido un poco de ayuda nada mas con el problema que se me presenta les explico un poco mas detallado y muy resumido

la consulta que necesito es la siguiente.


Dim sql1 As String


Dim Fecha_Inicial As String
Dim Fecha_Final As String
Dim estatus1 As Integer

' Intervalo para las fechas Y ESTATUS
Fecha_Inicial = DTPicker1.Text
Fecha_Final = DTPicker2.Text
estatus1 = Me.idestatus.Text

sql1 = "Select * From solicitante WHERE " & _
" estatus1=Me.idestatus.Text AND fechacierre Between " & _
"# " + Fecha_Inicial + " # AND # " + Fecha_Final + " #"


esta consulta me deberia arrojar todos los servicios registrados en mi base de datos con "ESTATUS=1" con "UNA FECHA INICIO Y UNA FECHA FIN",

si alguien puede ayudarme por favor se lo agradeceria con toda mi alma es que estoy desde hace buen tiempo intentando generar esta consulta