Dim Datenbank As OleDbConnection
        Dim DaHeadertest As OleDbDataAdapter
        Dim DsHeadertest As DataSet
 
        Datenbank = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=Media.mdb")
        DaHeadertest = New OleDbDataAdapter("show tables", Datenbank)
        DsHeadertest = New DataSet
        DaHeadertest.Fill(DsHeadertest)
        For Each dr As System.Data.DataRow In DsHeadertest.Tables( _
          "Tabelle1").Rows
            MessageBox.Show(dr(1))
        Next