Public Function GetAnnouncementsAsDataSet(ByVal moduleId As Integer) As DataSet





            ' Create Instance of Connection and Command Object


            Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))


            Dim myCommand As New SqlDataAdapter("GetAnnouncements", myConnection)





            ' Mark the Command as a SPROC


            myCommand.SelectCommand.CommandType = CommandType.StoredProcedure





            ' Add Parameters to SPROC


            Dim parameterModuleId As New SqlParameter("@ModuleId", SqlDbType.Int, 4)


            parameterModuleId.Value = moduleId


            myCommand.SelectCommand.Parameters.Add(parameterModuleId)





            ' Create and Fill the DataSet


            Dim myDataSet As New DataSet()


            myCommand.Fill(myDataSet)





            ' Return the DataSet


            Return myDataSet





        End Function











        Public Function GetAnnouncements(ByVal ModuleId As Integer) As SqlDataReader





            ' Create Instance of Connection and Command Object


            Dim myConnection As New SqlConnection(GetDBConnectionString)





            ' Generate Command Object based on Method


            Dim myCommand As SqlCommand = SqlCommandGenerator.GenerateCommand(myConnection, _


                CType(MethodBase.GetCurrentMethod(), MethodInfo), _


                New Object() {ModuleId})





            ' Execute the command


            myConnection.Open()


            Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)





            ' Return the datareader


            Return result





        End Function