Public Sub Selecting_Tab()
Try
Dim Dataset1 As DataSet
Dim DataAdapter As SqlDataAdapter
Dim cmd As SqlCommand = New SqlCommand("Select * from Tab where Name =N'" & Trim(Txt_Sound.Text) & "'", SqlCon)
DataAdapter = New SqlDataAdapter(cmd)
Dim builder As SqlCommandBuilder = New SqlCommandBuilder(DataAdapter)
opencon()
Dataset1 = New DataSet
DataAdapter.Fill(Dataset1, "Tab")
Closecon()
DataGridView1.DataSource = Dataset1
DataGridView1.DataMember = "Tab"
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub