Dim con As New SqlConnection Dim myconstring As String = "Data Source=ETA-TESTSRVR;Initial Catalog=Procurement;Integrated Security=True" con.ConnectionString = myconstring Dim da As New SqlDataAdapter("SELECT * from E1 where mat_sub_no ='" + ComboBox1.SelectedValue + "'", con) Dim dt As New DataTable da.Fill(dt) DataGridView1.DataSource = dt.DefaultView
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)