Sub einlesen()
        objDataView = Nothing
        objDataSet = New DataSet()
        objCon.Open()
        objDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Daten", _
          objCon)
        objDataAdapter.Fill(objDataSet, "Daten")
        objDataView = New DataView(objDataSet.Tables("Daten"))
        'objDataView.Sort = "Filmname"
        With Me
            .ListBox1.DataSource = objDataView
            .ListBox1.DisplayMember = "Filmname"
        End With
        Bindungen()
        objCon.Close()
    End Sub