Code:
ecSql = "INSERT INTO 04Event_Collector ([Date_Collection],[User_Name],[Machine_Number],"
ecSql = ecSql & " [Time1Start],[Time1Stop],[UElapsed1],[Time2Start],"
ecSql = ecSql & " [Time2Stop],[UElapsed2],[DElapsed2],[Event_Code2],[Time3Start],[Time3Stop],[UElapsed3],[DElapsed3],[Event_Code3],"
ecSql = ecSql & " [Time4Start],[Time4Stop],[UElapsed4],[DElapsed4],[Event_Code4],[Time5Start],[Time5Stop],[UElapsed5],[DElapsed5],"
ecSql = ecSql & " [Event_Code5],[Time6Start],[Time6Stop],[UElapsed6],[DElapsed6],[Event_Code6],[Time7Start],[Time7Stop],[UElapsed7],"
ecSql = ecSql & " [DElapsed7],[Event_Code7],[Total_Up_Time],[Total_Down_Time],[Total_Time]) "
ecSql = ecSql & " VALUES (#" & Date & "#, '" & TempVars!pvUserUser & "',#" & TempVars!pvMach_Area & "#, #" & Time1Start & "#,#" & Time1Stop
ecSql = ecSql & "#, #" & UElapsed1 & "#, #" & Time2Start & "#, #" & Time2Stop & "#, #" & UElapsed2 & "#, #" & DElapsed2 & "#, '" & Event2
ecSql = ecSql & "', #" & Time3Start & " #, #" & Time3Stop & "#, #" & UElapsed3 & "#, #" & DElapsed3 & "#, '" & Event3 & "', #" & Time4Start
ecSql = ecSql & "#, #" & Time4Stop & "#, #" & UElapsed4 & "#, #" & DElapsed4 & "#,)"
BTW, you have an extra comma before the last closing parenthesis.