Dim customerDataColumns(11) As String customerDataColumns(0) = "idnum" customerDataColumns(1) = "res1_fn" customerDataColumns(2) = "res1_int" customerDataColumns(3) = "res1_ln" customerDataColumns(4) = "res1_suf" customerDataColumns(5) = "addr1" customerDataColumns(6) = "addr2" customerDataColumns(7) = "City" customerDataColumns(8) = "State" customerDataColumns(9) = "zip" customerDataColumns(10) = "zip4" customerDataColumns(11) = "county"something like: