Insert Multiple Records

I'm trying to set up a form whereby users can select a variety of different subject mailing lists they'd like to be added to.
Each subject is in a different table so I want the FROM part of my SQL statement to loop through the values selected from the list box which I've loaded into an array.
But I'm getting a Type mismatch error.Code:

Dim strSQL
Dim subjects
Dim subjArray
Dim iLoop

subjects = Request.Form("subjects")
subjArray = split(subjects)

strSQL = "SELECT firstName, lastName, address1, address2, city, state, pcode, country, email FROM"
For iLoop = LBound(subjArray) to UBound(subjArray)
subjArray(iLoop)