Visual Basic - Seleccion de fechas (ADO)

seria correcta esta sentencia de seleccion de fechas?
Lo que quiero es seleccionar los registros que tenga un ID especifico y que ademas esten dentro de un rango de fechas.

Set consulta = bd1.Execute("Select * from Entradas where idproducto='" + CStr(Form6.y) + "' And fecha >= '" + CStr(Text1.Text & "/" & Text2.Text & "/" & Text3.Text) + "' and fecha <='" + CStr(Text4.Text & "/" & Text5.Text & "/" & Text6.Text) + "'")

Si la BD es Access las fechas se delimitan con numerales (#) y conviene enviarlas en formato yyyy-mm-dd en tu caso si Text1 es el día, Text2 el mes y Text3 el año sería:

Set consulta = bd1.Execute("Select * from Entradas where idproducto='" + CStr(Form6.y) + "' And fecha Between #" + CStr(Text3.Text & "-" & Text2.Text & "/" & Text1.Text) + "# and #" + CStr(Text6.Text & "/" & Text5.Text & "/" & Text4.Text) + "#")