1) Only for the first time (i=0) you can add parameter! For the next loop you must change it!
or...
2) Build query in run-time in this way:
sSQL = "INSERT INTO Tracks (TrackTitle, TrackSeqNum) " & vbCrLf & _
"VALUES( '" & ListBox3.Items(i) & "', '" & ListBox1.Items(i)"')"
Then you need to create command object with CommandText = sSQL and call ExecuteNonQuery.