Public Function GetAnswer(QuestionID)
Dim RSAnswers As ADODB.Recordset
Dim TempList As String
Set RSAnswers = Conn.Execute("select Answer from C1Answers " _
  & "where QuestionID = " & QuestionID)
Do Until RSAnswers.EOF
  TempList = TempList & "<OPTION VALUE=""" _
    & RSAnswers("Answer") & """>" _
    & RSAnswers("Answer") & "</OPTION>"
  RSAnswers.MoveNext
Loop
GetAnswer = TempList
End Function 
