Saw that so i corrected it with
Private Sub cmdAllAthletes_Click()
Dim s1 As String
s1 = ""
s1 = s1 & "INSERT INTO Tbl_CourseAttendances "
s1 = s1 & "(courseID, CourseDate, athleteID) "
s1 = s1 & " SELECT Parent.[courseID], " & Format(Parent.[CourseDate], "\#yyyy\/mm\/dd\#") ''''error & ","
s1...