INSERT INTO QuestionResponses ( [Question#], Question, ProgramId, [OutcomeID#] )
SELECT QuestionList.[Question#], QuestionList.Question, QuestionList.[ProgramID#], QuestionList.[OutcomeID#]
FROM QuestionList
WHERE (((QuestionList.[ProgramID#])=[Enter Program ID]));