ขอทราบวิธีการ Search ใน textbox ลงใน Gridview แบบ Windows Form (VB.net)

Private Sub CustomerDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles CustomerDataGridView.CellContentClick
        '*** CustomerID ***'
        Dim lblCustomerID As Label = CType(e.Row.FindControl("lblCustomerID"), Label)
        If Not IsNothing(lblCustomerID) Then
            lblCustomerID.Text = e.Row.DataItem("CustomerID")
        End If

        '*** Email ***'
        Dim lblName As Label = CType(e.Row.FindControl("lblName"), Label)
        If Not IsNothing(lblName) Then
            lblName.Text = e.Row.DataItem("Name")
        End If

        '*** Name ***'
        Dim lblEmail As Label = CType(e.Row.FindControl("lblEmail"), Label)
        If Not IsNothing(lblEmail) Then
            lblEmail.Text = e.Row.DataItem("Email")
        End If

        '*** CountryCode ***'
        Dim lblCountryCode As Label = CType(e.Row.FindControl("lblCountryCode"), Label)
        If Not IsNothing(lblCountryCode) Then
            lblCountryCode.Text = e.Row.DataItem("CountryCode")
        End If

        '*** Budget ***'
        Dim lblBudget As Label = CType(e.Row.FindControl("lblBudget"), Label)
        If Not IsNothing(lblBudget) Then
            lblBudget.Text = FormatNumber(e.Row.DataItem("Budget"), 2)
        End If

        '*** Used ***'
        Dim lblUsed As Label = CType(e.Row.FindControl("lblUsed"), Label)
        If Not IsNothing(lblUsed) Then
            lblUsed.Text = FormatNumber(e.Row.DataItem("Used"), 2)
        End If

    End Sub

        Dim objConn As New OleDBconnection
        Dim objCmd As New OleDbCommand
        Dim dtAdapter As New OleDbDataAdapter
        Dim ds As New DataSet
        Dim strConnString, strSQL As String

        strConnString = "Server=localhost;Uid=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
        strSQL = "SELECT * FROM customer WHERE (Name like '%" & strKeyWord & "%' OR Email like '%" & strKeyWord & "%') "

        objConn.ConnectionString = strConnString
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        dtAdapter.SelectCommand = objCmd

        dtAdapter.Fill(ds)

        '*** BindData to GridView ***'
        CustomerDataGridView.DataSource = ds
        CustomerDataGridView.DataBind()                     '<<<<<<< ตรงนี้ครับที่ Error มันหา DataBind ไม่เจอ

        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing

    End Sub