A ver, ejecuta la consulta así:
cn.Execute "INSERT INTO perfiles (codperfil, nombre, tipocomprobante, comprobante, sucursal, perfil, usuario, listado) VALUES (" & _
"'" & TxtCodigo.Text & "','" & TxtNombre.Text & "'," & ChkTC.Value & "," & ChkC.Value & "," & ChkS.Value & "," & ChkP.Value & "," & ChkU.Value & "," & ChKl.Value & ")"
Donde los campos tipocomprobante,comprobante, sucursal, perfil, usuario y listado deben ser todos ellos de tipo booleano (si/no) y olvídate del recordset rsAux (no lo necesitas para nada).
