solo lo adapta ha c# paro la consulta en visual con access la genero así
Código:
Dim strcom As String = "Select * from IngresoSalidaEmpleados where FechaDeTransaccion >= #" & Format(Me.XpDateTimePicker3.Value, "dd/MM/yyyy") & "# and FechaDeTransaccion <= #" & Format(Me.XpDateTimePicker4.Value, "dd/MM/yyyy") & "# and IdDeUsuario = '" & Me.TextBox3.Text & "' "
Me.OleDbDataAdapter5 = New OleDbDataAdapter(strcom, Me.OleDbConnection1)
Me.ConsultllegadasTardiass1.AcceptChanges()