If (DateTimePicker5.Checked = True And DateTimePicker6.Checked = True) And ComboBox8.Text <> "" Then
Dim see As New OleDbCommand("SELECT org_id as [Serial], [shipment_id] as [Shipment No], date as [Date], shipping_com_id as [Shipping Company], Orgnization_ID as [Entites Name], Comment FROM [Registeration-org] WHERE [date] >= #" & DateTimePicker5.Text & "# and Date <= #" & DateTimePicker6.Text & "# and [Shipment No] LIKE '%" & TextBox4.Text & "%' ", DBconnection)
Dim adap As New OleDbDataAdapter
Dim dt As New DataTable
Dim sou As New BindingSource
adap.SelectCommand = see
adap.Fill(dt)
sou.DataSource = dt
DataGridView3.DataSource = sou
adap.Update(dt)
adap.Dispose()
see.Dispose()