How to add button to DataGridView using VB.NET?

Imports System.Data.SqlClient

Dim connstring As String
Dim sql As String
Dim sqlcon As New SqlConnection

Private Sub PopulateImginDataGridView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PopulateImginDataGridView.Click
connstring = "Data Source=localhost;Initial Catalog=Test;User id=sa;password=password;"
sqlcon.ConnectionString = connstring
sqlcon.Open()

DataGridView1.Rows.Clear()

Dim dr As SqlDataReader
Dim sqlcmd As New SqlCommand

sql = "Select * From test"
With sqlcmd
.CommandText = sql
.Connection = sqlcon
dr = .ExecuteReader()
End With

If dr.HasRows Then
DataGridView1.ColumnCount = dr.FieldCount - 1
DataGridView1.Columns(0).Name = "ID"
DataGridView1.Columns(1).Name = "Name"

Dim btn As New DataGridViewButtonColumn()
DataGridView2.Columns.Add(btn)
End If

While dr.Read
btn.HeaderText = "Click Data"
btn.Text = "Click Here"
btn.Name = "btn"
btn.UseColumnTextForButtonValue = True

DataGridView1.Rows.Add(dr.Item(0), dr.Item(1), btn)
End While

sqlcon.Close()
End Sub

Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
If e.ColumnIndex = 2 And e.RowIndex >= 0 Then
MsgBox("You have selected row with Name: " & DataGridView1.Rows(e.RowIndex).Cells(1).Value)
End If
End Sub