Public Function CheckAnswer(QuestionID, AnswerText)
Dim RSAnswer As ADODB.Recordset
Set RSAnswer = Conn.Execute("select Answer from C1Questions " _
  & "where QuestionID = " & QuestionID)
  If RSAnswer("Answer") = AnswerText Then
    CheckAnswer = 1
  Else
    CheckAnswer = 0
  End If
End Function