Give this a try: variable_1 = "string1" variable_2 = "string2" variable_3 = "string10" arrVars = Array(variable_1, variable_2, variable_3) For i = 0 To UBound(arrVars) rs.Open "INSERT INTO database (column) VALUES (' " & arrVars(i) & " ')" Next <% David Mitchell Web/Software Developer david at sofTV.net sofTV.net www.sofTV.net 613.729.6400 x268 %>