try
public class afile
private m_fileID as integer
private m_title as string Public Property FileID() As Integer
        Get
            Return  m_fileID
        End Get
        Set(ByVal Value As Integer)
            m_fileID = Value
        End Set
    End Property
Public Property Title() As String
        Get
            Return m_title
        End Get
        Set(ByVal Value As String)
            m_title = Value
        End Set
    End Property
public Sub New(fileID as integer,title as string)
myBase.New()
me.m_fileID=fileID
me.m_title=title
End Sub
End classSub Page_load
if not ispostback
GetDrop()
end if
End SubSub GetDrop()
Dim connWxciq as SqlConnection
Dim StrSelect as string
Dim cmdSelect as SqlCommand
Dim dtrReader as SqlDataReader
Dim arrFinish as ArrayList
Dim arrUnfinish as ArrayList

connWXCIQ=New SqlConnection("server=localhost;UID=sa;PWD=;Database=pubs")
connWXCIQ.open() strSelect="select * from sales"
cmdSelect=New SqlCommand(strSelect,connWxciq)
dtrReader=CmdSelect.ExecuteReader()
arrFinish=New arraylist
  do while dtrReader.read()
arrFinish.add(New afile(dtrReader("stor_id"),dtrReader("payterms")))
Loop
dtrReader.Close()
connWXCIQ.Close()
drpfiles.DataSource=arrFinish
drpfiles.DataTextField = "title"
drpfiles.DataValueField = "fileID"
drpfiles.Databind()connWxciq.close
End sub