Public Function GetQuestion(QuestionID)
Dim RSQuestion As ADODB.Recordset
Set RSQuestion = Conn.Execute("select Question from C1Questions " _
  & "where QuestionID = " & QuestionID)
If RSQuestion.EOF Then
  GetQuestion = "NA"
Else
  GetQuestion = RSQuestion("Question")
End If
End Function