Try


            Dim reader As SqlDataReader = SqlHelper.ExecuteReader(cnString, "getProductsByCategory", 16)


            drpdwnlist2.DataSource() = reader  


            drpdwnlist2.DataTextField = "ProductName"


            drpdwnlist2.DataBind()


        'Return reader


        Catch ex As Exception


            Response.Write(ex.Message)


        End Try

' Retrieves a list of customers from the database.


        ' Returns: List of customers in a string.


        ' Remarks: Demonstrates retrieving multiple rows of data using


        ' a DataReader


        Public Function GetCustomerList() As String





            ' DataReader that will hold the returned results		


            ' Create the Database object, using the default database service. The


            ' default database service is determined through configuration.


            Dim db As Database = DatabaseFactory.CreateDatabase()





            Dim sqlCommand As String = "Select CustomerID, Name, Address, City, Country, PostalCode " & _


                "From Customers"


            Dim dbCommandWrapper As DBCommandWrapper = db.GetSqlStringCommandWrapper(sqlCommand)





            Dim readerData As StringBuilder = New StringBuilder





            ' The ExecuteReader call will request the connection to be closed upon


            ' the closing of the DataReader. The DataReader will be closed 


            ' automatically when it is disposed.


            Dim dataReader As IDataReader = db.ExecuteReader(dbCommandWrapper)





            ' Iterate through DataReader and put results to the text box.


            ' DataReaders cannot be bound to Windows Form controls (e.g. the


            ' resultsDataGrid), but may be bound to Web Form controls.


            While (dataReader.Read())


                ' Get the value of the 'Name' column in the DataReader


                readerData.Append(dataReader("Name"))


                readerData.Append(Environment.NewLine)


			End While


			dataReader.Close()


			Return readerData.ToString()


        End Function