dt.Clear()
Dim ds As New DataSet
Dim sql1 As String = "select i.inv_no,i.code,i.drive,i.engine,i.transf,i.chass_no,i.eng_no,i.vin,i.color,i.cd_no,i.cd_date,i.key_no from Invoice3 i , cust_information c where i.inv_no = c.inv_no And i.model like '%" & ComboBox1.Text & "%' And c.inv_date >='" & DateTimePicker1.Text & "' And c.inv_date <='" & DateTimePicker2.Text & "'"
con3.Open()
Dim da As New SqlDataAdapter(sql1, con3)
da.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Refresh()
''-----------------------------------------
''-----------------------------------------
DataGridView1.Columns(0).Width = 60
DataGridView1.Columns(1).Width = 80
DataGridView1.Columns(2).Width = 80
DataGridView1.Columns(3).Width = 80
DataGridView1.Columns(4).Width = 80
DataGridView1.Columns(5).Width = 90
DataGridView1.Columns(6).Width = 80
DataGridView1.Columns(7).Width = 180
DataGridView1.Columns(8).Width = 80
DataGridView1.Columns(9).Width = 80
DataGridView1.Columns(10).Width = 80
DataGridView1.Columns(11).Width = 90
DataGridView1.Columns(0).HeaderText = " Invoice No "
DataGridView1.Columns(1).HeaderText = "Mark"
DataGridView1.Columns(2).HeaderText = "Drive"
DataGridView1.Columns(3).HeaderText = "Engine"
DataGridView1.Columns(4).HeaderText = "Trans"
DataGridView1.Columns(5).HeaderText = "chass_no"
DataGridView1.Columns(6).HeaderText = "Eng_no"
DataGridView1.Columns(7).HeaderText = "VIN"
DataGridView1.Columns(8).HeaderText = "Color"
DataGridView1.Columns(9).HeaderText = "CD_no"
DataGridView1.Columns(10).HeaderText = "CD_date "
DataGridView1.Columns(11).HeaderText = "Key_no"
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
'-------------------------------------------
con3.Close()