sub Page_Load (byval sender as object, byval e as eventargs)
    If Not IsPostBack Then
        dim ds as dataset
        ds = getListItems
        dd1.datatextfield = "Name"
        dd1.datasource = ds
        dd1.databind
    End If
end sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist