insert into checkbox

[analoyra]

Tampoco me anduvo, pero posteo la solucion que encontre, no se si es la optima pero funciona
Rs.Open "Select * from Perfiles", cn, adOpenKeyset, adLockOptimistic
With Rs
.AddNew
Rs(0) = TxtCodigo.Text
Rs(1) = TxtNombre.Text
If ChkTC.Value = vbChecked Then
Rs(2) = 1
Else
Rs(2) = 0
End If
If ChkC.Value = vbChecked Then
Rs(3) = 1
Else
Rs(3) = 0
End If
If ChkS.Value = vbChecked Then
Rs(4) = 1
Else
Rs(4) = 0
End If
If ChkP.Value = vbChecked Then
Rs(5) = 1
Else
Rs(5) = 0
End If
If ChkU.Value = vbChecked Then
Rs(6) = 1
Else
Rs(6) = 0
End If
If ChKl.Value = vbChecked Then
Rs(7) = 1
Else
Rs(7) = 0
End If
.Update
End With
Rs.Close

Nuevamente.... gracias Avellaneda!!!