Try doing this in VB application
For intCounter = 1 To ClassInfos.Count
strSQL = strSQL & " Insert into Class(ClassID,ProgramID,StudentID) Values("
strSQL = strSQL & "'" & ClassInfos.Item(intCounter).ClassID & "','" & PInfo.ProgramID & "','" & SInfo.StudentID & "')" & vbCrLf
Debug.Print strSQL
Next intCounter
adoCmd.CommandText = strSQL
adoCmd.CommandType = adCmdText
adoCmd.Execute (intRecs)
Stupid MSACCESS dont accept batch inserts!! what the hell!!
