HOW TO MAKE DATAGRIDVIEW CHECKBOX COLUMN CHECKED WHEN VALUE

Private Sub pull_records
        Try
            DisplayToDataGrid("SELECT column 1,column2 FROM table1", dgvData)
            DGVProperty(dgvData)
            dataColumns(dgvData)
            chk.HeaderText = ""
            chk.Width = 30
            chk.Name = "chk"
            dgvLookup.Columns.Insert(0, chk)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub