Thanks Ted,
I did the following code
Private Sub UPDATETEACHER_Click()
Dim strSql As String
strSql = "INSERT INTO tblTeachersAttendance (CoursesTakenByTeachers_ID, AttendanceDate, AttendanceDuration, AttendanceNote)" _
& "SELECT CoursesTakenByTeachers_ID SELECT CoursesTakenByTeachers_ID, #"...