el checkbox en el datagrid me esta ahogando

[gakutaru]

hola, necesito poner un checkbox en el datagrid, pero e recorrido varias paginas y visto muchas soluciones, pero no las entiendo, no hayo como poner una checkbox en mi datagrid.
les muestro lo que llevo.

Código vb:

Dim dt As New DataTable()
        Dim dr As DataRow
        Dim i As Integer
 
        strSelectPregunta = "Select * From BancoPregunta Order by Dimension "
        cmdSelectPregunta = New SqlCommand(strSelectPregunta, conDesempeno)
  
            dt.Columns.Add(New DataColumn("idPregunta", GetType(Integer)))
            dt.Columns.Add(New DataColumn("Pregunta", GetType(String)))
            dt.Columns.Add(New DataColumn("Dimension", GetType(String)))
           
        Dim strSelectGerencias As String
        Dim cmdSelectGerencias As SqlCommand
        Dim dtrSelectGrenecias As SqlDataReader
        Dim j As Integer = 0
   
        strSelectGerencias = "Select * From XXX Order by XXX "
        cmdSelectGerencias = New SqlCommand(strSelectGerencias, conDesempeno)
        conDesempeno.Open()
        dtrSelectGrenecias = cmdSelectGerencias.ExecuteReader
        While dtrSelectGrenecias.Read
            dt.Columns.Add(New DataColumn(dtrSelectGrenecias("XXX"), GetType(Boolean)))
            j += 1
        End While
        conDesempeno.Close()
        
        Dim k As Integer = 0
        conDesempeno.Open()
        dtrSelectPregunta = cmdSelectPregunta.ExecuteReader
        While dtrSelectPregunta.Read
            dr = dt.NewRow()
            i = 0
            dr(i) = dtrSelectPregunta("idPregunta") '0
            i = i + 1 '1
            dr(i) = dtrSelectPregunta("Pregunta") '1
            i = i + 1 '2
            dr(i) = dtrSelectPregunta("Dimension") '2
             
            While k < j
                i += 1
                dr(i) = dtrSelectPregunta("Elejido")
                k += 1
            End While
            
            dt.Rows.Add(dr)
        End While
        Dim dv As New DataView(dt)
        conDesempeno.Close()
        dgrBcoHist.DataSource = dv
        dgrBcoHist.DataBind()
        conDesempeno.Close()
 

les explico un poco

dt.Columns.Add(New DataColumn("idPregunta", GetType(Integer)))
dt.Columns.Add(New DataColumn("Pregunta", GetType(String)))
dt.Columns.Add(New DataColumn("Dimension", GetType(String)))
declaro los headers del datagrid

While dtrSelectGrenecias.Read
dt.Columns.Add(New DataColumn(dtrSelectGrenecias("XXX"), GetType(Boolean)))
j += 1
End While
listo hacia la derecha las opciones XXX, es un valor que recojo puesto que es dinamico. y tipo boolean para que sean checkbox

While k < j
i += 1
dr(i) = dtrSelectPregunta("Elejido")
k += 1
End While

asigno las checkbox teoricas. 'Elejido' en la base de datos es tipo Bit que es binario

mi problema es que esto no muestra ninguna checkbox, y tenia la idea de que al declarar boolean y el tipo en la base de datos esta mostraria automaticamente la checkbox.



si algn tiene un ejemplo que funcione sobre como agregar chechkbox dinamicamente en VB, le agradecere x siempre, xq no doy con una solucion.