Visual Basic - Error consulta de fecha..

Estoy realizando una consulta con varios parámetros , tengo error cuando le incluyo la consulta de las fechas que es la variable sql3.
Al quitarle esta condición me muestra en pantalla el resultado pero necesito incluir la opción de las fechas. Si alguien me puede ayudar se los agradecería.

Private Sub BtnAceptar_Click()

AdoHistorico.RecordSource = "select trans, producto, cantidad, precio from HISTORICO_PROD WHERE PRODUCTO= ''"
AdoHistorico.Refresh

Agrupar = "GROUP BY trans, producto"
If List1.Text = "TODAS" Then
Sql = "select trans, producto, sum(cantidad) as Cantidad, sum(precio) as precio FROM historico_prod WHERE TRANS LIKE '_E'"
Else
If List1.Text = "DESPACHO" Then
Sql = "select trans, producto, sum(cantidad) as Cantidad, sum(precio) as precio FROM historico_prod WHERE trans='DE'"
Else
Sql = "select trans, producto, sum(cantidad) as Cantidad, sum(precio) as precio FROM historico_prod WHERE trans ='RE'"
End If
End If

If DCProducto.BoundText = "" Then
Sql1 = ""
Else
Sql1 = "AND PRODUCTO ='" & DCProducto.BoundText & "'"
End If

Sql3 = "AND fecha between(#" & DateValue(Calendar1.Value) & "#) AND (#" & DateValue(Calendar1.Value) & "#)"

AdoHistorico.RecordSource = Sql & Sql1 & Sql3 & Agrupar
AdoHistorico.Refresh

End Sub