VB.NET คำสั่ง Select จาก Textbox แล้วแสดงที่ datagridview

Private Sub DataSetFindProduct()
        Connect_db()

        If IsFind = True Then
            ds.Tables("Products").Clear()
        End If

        Try
            sb.Remove(0, sb.Length)
            sb.Append("SELECT * FROM Products")
            sb.Append(" WHERE ProductID LIKE @FindProduct OR ProductName LIKE @FindProduct ")

            Dim sqlFindProduct As String = sb.ToString()

            com = New OleDbCommand(sqlFindProduct, conn)

            With com
                .Parameters.Clear()
                .Parameters.AddWithValue("@FindProduct", "%" & txtFindProduct.Text.Trim() & "%")
            End With

            da = New OleDbDataAdapter(com)
            da.Fill(ds, "Products")

            If ds.Tables("Products").Rows.Count <> 0 Then
                bs.DataSource = ds.Tables("Products")

                With dgvFindProduct
                    .DataSource = bs
                    FormatDgvFindProduct()
                End With
                IsFind = True
            Else
                MessageBox.Show("ไม่พบข้อมูลที่คุณค้นหา!!!", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
                IsFind = False
                Exit Sub
            End If


        Catch ex As Exception
            MessageBox.Show("ไม่พบข้อมูลที่คุณต้องการ เนื่องจาก " & ex.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
        Close_connect()

    End Sub

 Private Sub Dtg1_CellMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles Dtg1.CellMouseDown
        If e.RowIndex = -1 Then Exit Sub

        With Me.Dtg1
          TextBox1.Text = .Rows.Item(e.RowIndex).Cells("ID").Value.ToString()    ' Column ที่ต้องการ เช่น  ID       
        End With     
      
    End Sub