Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As String


        Try
            If Trim(TextBox2.Text) <> "" Then
                x = TextBox2.Text.ToUpper

                SQL = "SELECT Comp_Code,Comp_Name FROM company_detail WHERE Comp_Name LIKE '" & x & "%'"
                ObjComm = New MySqlCommand(SQL, ObjMyConn)
                ObjMyConn.Open()
                ObjRead = ObjComm.ExecuteReader
                If ObjRead.Read Then
                    ObjRead.Close()
                    DataGridView1.DataSource = Nothing
                    ObjAdapter = New MySqlDataAdapter(SQL, ObjMyConn)
                    ObjAdapter.Fill(ds, "Client_Comp")
                    dt = ds.Tables("Client_Comp")
                    dt.Columns(0).ColumnName = "Company Code"
                    dt.Columns(1).ColumnName = "Company Name"
                    DataGridView1.DataSource = dt.DataSet.Tables("Client_Comp")
                    DataGridView1.Refresh()
                    TextBox2.Clear()
                Else
                    
                    dt.DataSet.Tables("Client_Comp").Reset()
                    DataGridView1.DataSource = Nothing
                    MessageBox.Show("No such company stored.")
                    TextBox2.Clear()
                End If

            Else
                MessageBox.Show("Please insert a search text into company column")
                dt.DataSet.Tables("Client_Comp").Reset()
                DataGridView1.DataSource = Nothing
                DataGridView1.Refresh()
            End If
            ObjMyConn.Close()
        Catch ex As Exception
            MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly)
        Finally
            ObjMyConn.Close()
        End Try

    End Sub