cmd.CommandText = "SELECT Nr, Titel, Medium FROM Videoliste order by Nr"
 
 
        Dim ds As New DataSet()
        Dim da As OleDbDataAdapter = New OleDbDataAdapter()
        da.SelectCommand = cmd
        da.Fill(ds, "Videoliste")
 
        Dim tbl As DataTable = ds.Tables(0)
        Dim DView As DataView = New DataView(ds.Tables("Videoliste"))
        Listbox1.Datasource= DView ' auch mit "= tbl" oder "=ds" klappt es nicht
        Listbox1.DisplayMember= "Titel"

Gruss Caddy