sql := ""
sql := sql + "INSERT INTO StudentOptionChoices ( StudentID, ModuleCode, semester, Academic_Year ) " ;
sql := sql + " VALUES ('" ;
sql := sql + DBGStudentsList.datasource.dataset.FieldByName('studentID').AsString ;
sql := sql + "','" ;
sql := sql + DBGAvailableModules.datasource.dataset.FieldByName('ModuleCode').AsString ;
sql := sql + "','" ;
sql := sql + DBGAvailableModules.datasource.dataset.FieldbyName('semester').AsString ;
sql := sql + "','" ;
sql := sql + quotedstr(AcadYear) ;
sql := sql + "')" ;