По одному элементу не желательно сохранять. Сохранять надо массив. Правда Аксес не позволяет сохранять массивы, зато ежели ты работаешь с SQL-сервером или Oracle, то там можно построить запрос (всего один), сохраняющий в БД весь массив данных. Почему у тебя обнуляется число элементов, я не знаю, возможно это связано с тем чёрным ящиком, который представляет из себя процедура сохранения в БД.
Итак, раскладываю по полочкам:
1. Ты пишешь судя по коду на Паскале (или как сейчас модно его называть Дельфи). Я не знаю, поддерживает ли Паскаль объектный тип данных, но он поддерживает тип "запись".Вот и создай массив элементов типа "запись". Заполни его в цикле:
program abc (input,output);
var
array1[1..CheckBoxList.Items.Count] :record(не помню как выглядит описание типа рекорд);
i:integer;
imax:integer;
sqlString:text;
begin
imax:=CheckBoxList.Items.Count
for i:=1 to imax
if CheckBoxList.Items[i-1].selected=true then
{заполнение массива}
next i;
sqlString:="insert into ..."
{процедура подключения к БД};
{процедура взятия запроса SQL};
{процедура отключения от БД}
end.
2. Я прошу прощения, уже 10 лет не работал с Паскалем, забыл всё нафиг, помню только, что в 5-й версии отменили запрет ставить точку с запятой перед end. Короче предлагаю сперва массив заполнить, потом сделать строку запроса SQL, а потом осуществить запрос. Так как построчно брать запросы слишком медленно.
Max Pro