Hola, de antemano gracias por todo mi inconveniente es que tengo una consulta que cargo a un datagrid, pero a la vez quiero que agregue una columna de checkbox pero la verdad no logro saber cómo, este es el código donde cargo los datos:

dgDatos.ClearFields
Dim cod As String
Dim rs As New ADODB.Recordset

cod = txtCodCliente.Text
Set rs = New ADODB.Recordset

sql = "consulta de sql"

rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set dgDatos.DataSource = rs
Dim totalReg As Integer
totalReg = dgDatos.ApproxCount
lblPrueba.Caption = CStr(totalReg)

con este código logro cargar ùnicamente los registros pero ahora necesito la columna con checkbox