como cambio la fecha por textbox

Question

tengo el siguiente código :

Private Sub Command1_Click()
Set RS = New ADODB.Recordset
RsCursorLocation = adUseClient
SQL = "SELECT T.ID, T.NAMES, Count(*) AS NF FROM TEMPLATES AS T INNER JOIN SCAN_TIME AS S ON T.ID = S.ID WHERE (((S.SCANTIME) Between #10/1/2015# And #10/31/2015#)) GROUP BY T.ID, T.NAMES;"
If RS.State Then RS.Close
RS.Open SQL, cnDB, adOpenDynamic, adLockOptimistic, adCmdText
Set DataGrid.DataSource = RS
Set RS = Nothing

y tengo que cambiar lo que esta señalado en negrilla por textbox pero no se como hacerlo.

Cuando lo intente me salio un error que dice:  no coinciden los tipos de datos en la expresión del criterios. y este es el código modificado en mi intento fallido:

Private Sub Command1_Click()
Set RS = New ADODB.Recordset
RsCursorLocation = adUseClient
SQL = "SELECT T.ID, T.NAMES, Count(*) AS NF FROM TEMPLATES AS T INNER JOIN SCAN_TIME AS S ON T.ID = S.ID WHERE (((S.SCANTIME) Between '" & Text1.Text & "' And '" & Text2.Text & "')) GROUP BY T.ID, T.NAMES;"
If RS.State Then RS.Close
RS.Open SQL, cnDB, adOpenDynamic, adLockOptimistic, adCmdText
Set DataGrid.DataSource = RS
Set RS = Nothing

y me salta error en la linea subrayada.  alguien me podría ayudar? 

pd: trabajo en vb 6.0 

Answer 1

Puedes hacer algo como esto:

If IsDate(Text1.Text) And IsDate(Text2.Text) Then

   SQL = "SELECT T.ID, T.NAMES, Count(*) AS NF FROM TEMPLATES AS T INNER JOIN SCAN_TIME AS S ON T.ID = S.ID WHERE (((S.SCANTIME) Between #" & Text1.Text & "# And #" & Text2.Text & "#)) GROUP BY T.ID, T.NAMES;"

   .....

End If

---

Saludos, Javier J

Answer 2

MUCHAS GRACIAS ME SIRVIÓ PERFECTO.