Public Function PopulateModuleDropDown() As ArrayList

        'declare variables
        Dim arrModules As New ArrayList
        Dim strSqlStatement As String = "SELECT ModuleName From Modules"
        Dim cmdPMDD As New SqlCommand(strSqlStatement, nurseConnection)
        cmdPMDD.CommandType = CommandType.Text
        Dim drPMDD As SqlDataReader

        Try
            'open connection to the database
            nurseConnection.Open()

            'execute reader, then close the connection
            drPMDD = cmdPMDD.ExecuteReader(CommandBehavior.CloseConnection)

            While drPMDD.Read()
                arrModules.Add(drPMDD("ModuleName"))
            End While

            'drPMDD.Close()

            Return arrModules

        Catch ex As Exception
            ex.ToString()
        End Try

    End Function

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        'For each question in the SQL DB, create a label and insert the question into it

        Dim dsAQ As DataSet = DA.QuestionsDataSet(ddlModule.SelectedIndex)
        Dim i As Integer = 0
        Dim strTest As String
        Dim strQuestionText As String

        Do While i <= dsAQ.Tables(0).Rows.Count - 1

            strQuestionText = dsAQ.Tables(0).Rows(i).Item("Question")
            'If strQuestionText <> strTest Then
            'strTest = strQuestionText
            Dim lblQuestion As New Label
            lblPlaceHolder.Controls.Add(lblQuestion)
            lblQuestion.Text = strQuestionText
            'End If

            i += 1

        Loop
    End Sub