Hi,

You could give all the comboboxes the same name, then use the Index property to reference them, but if this is not suitable, you can declare a collection object:

Dim x As New Collection

then in a subroutine that you perform at the load event, you add all your combo boxes to the collection:

Private sub AddCombos()
with x
.add combobox1
.add combobox2
' etc...
end with
end sub

Then to access the comboboxes values in one shot:

Dim ctr as control

for each ctr in x
ssql = "Insert into table (field) value('" & ctr.text & "'"
db.execute ssql
next ctr

That's all. If you want you could declare a combo box instread of a general control, but then you have to stick to combo boxes. this leaves the door open if you want to add anything else.

HTH,

Preeti