Try to do a loop and for each cycle do a insert in database
Code:
For(i=0;i<40;i++)
{
SQL = "insert into survey_answers (name, answer_num, answer_a, answer_b)"
SQL = SQL & "values ('" & Name & "', 'i', '" & A_iA & "', '" & A_iB & "')"
rs.Open sql, cn
}
here is just some "pseudo code" try to do that for you scripting langauge
Regards
Adrian
http://www.mydomaintracker.net