Consulta de Rango de Fechas

[dubiweb]

realizo una consulta entre dos rangos de fecha la consulta se efectua, pero la consulta no me da los datos de respuesta y tengo datos en el rango de fecha de la consulta

creo que el error lo tengo en el sql

"Select * from IngresoSalidaEmpleados where FechaDeTransaccion >= #" & Format(Me.XpDateTimePicker1.Value, "dd/MM/yyyy") & "# and FechaDeTransaccion <= #" & Format(Me.XpDateTimePicker5.Value, "dd/MM/yyyy") & "# "

pero ya probe de n formas y nada alguien que me de una luz se lo agradecere



Try
Me.OleDbConnection1.Open()

Me.DataGrid2.DataSource = Nothing
Me.DataGrid2.DataMember = Nothing
Me.ConsultaGeneral41.Clear()

Dim strcom As String = "Select * from IngresoSalidaEmpleados where FechaDeTransaccion >= #" & Format(Me.XpDateTimePicker1.Value, "dd/MM/yyyy") & "# and FechaDeTransaccion <= #" & Format(Me.XpDateTimePicker5.Value, "dd/MM/yyyy") & "# "
Me.OleDbDataAdapter4 = New OleDbDataAdapter(strcom, Me.OleDbConnection1)
Me.ConsultaGeneral41.AcceptChanges()

Me.OleDbDataAdapter4.Fill(Me.ConsultaGeneral41, "IngresoSalidaEmpleados")
DataGrid2.DataSource = Me.ConsultaGeneral41
DataGrid2.DataMember = "IngresoSalidaEmpleados"
Me.OleDbConnection1.Close()

Me.XpDateTimePicker1.Focus()

Catch ex As Exception
MsgBox(ex.Message)
End Try