Originariamente inviato da xegallo
per la sintassi dell insert puoi anche fare così

codice:
sql = insert into tabella (campo) values ("
for i =1 to 15000
   sql = sql & "'valore', "
next i
sql = left$(sql,len(sql) -2) & ")"
così con una sola transazione inserisci 15000 record
Veramente qui stai cercando di creare un record con 15000 campi...
Dovresti fare così:
codice:
Dim db as DataBase
Dim rs as DAO.RecordSet
Dim rec as Integer

Set db = CurrentDb
Set rs = db.OpenRecordset("NomeTabella", dbOpenDynaset)

For rec = 1 To 15000
  rs.AddNew
  rs!NomeCampo = rec
  rs.Update
Next

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing