I made the suggested change but still have the same result. Included is the updated SQL code.
mySQL = "INSERT INTO [US History] ( Student_ID, Period, Teacher ) "
mySQL = mySQL & "SELECT AllStudents.Student_ID, Mid$([AllStudents].[Col1_Class_Name_4],2,1) AS Period...