Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Da As New SDS.OleDbDataAdapter("Select * from Trip WHERE AgentID = '" & ComboBox1.Text & "' and Country = '" & ComboBox2.Text & "' and Category = '" & ComboBox3.Text & "' and SCategory = '" & ComboBox4.Text & "' and TDate = #" & ComboBox5.Text & "# ; ", connection) Dim Ds As New DataSet Ds.Clear() Try Da.Fill(Datas, "Trip") DG1.DataSource = Ds DG1.DataMember = "Trip" Catch ex As Exception MsgBox(ex.Message) End Try End Sub
DG1.DataSource = Ds
DG1.DataSource = Ds.Tables(0)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)