Dim da As New OleDbDataAdapter
        da = New OleDbDataAdapter("SELECT * FROM TAB1 ORDER BY XYZ DESC", con)
 
        Dim ds As New DataSet
        Dim dt As DataTable
 
        For I = 0 To ListBox1.Items.Count - 1
 
            Dateiname = ListBox1.Items(I)
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
              "Source=" & Dateiname & ";Jet OLEDB:Database Password=Test;"
 
            con.Open()
 
            ds.Tables.Add(dt)
            con.Close()
 
        Next
 
        DA.Fill(dt)
 
        DataGridView1.DataSource = dt.DefaultView

EALA FREYA FRESENA