Imports System.Data.OleDb
 
Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      GetTableInfo()
   End Sub
 
   Private Sub GetTableInfo()
      Dim ConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
        "Source=D:\test.mdb;"
      Dim Conn As New OleDbConnection(ConnStr)
 
      Conn.Open()
 
      ' Tabellen auslesen
      Dim dtTable As DataTable = Conn.GetOleDbSchemaTable( _
        OleDbSchemaGuid.Tables, _
         New Object() {Nothing, Nothing, Nothing, "TABLE"})
 
 
      ' Felder auslesen
      For Each rowTable As DataRow In dtTable.Rows
         Dim dtColumn As DataTable = Conn.GetOleDbSchemaTable( _
           OleDbSchemaGuid.Columns, _
            New Object() {Nothing, Nothing, rowTable(2).ToString, Nothing})
 
         For Each rowcol As DataRow In dtColumn.Rows
            Console.WriteLine("Tabelle {0}, Spaltenname: {1}", rowcol(2), _
              rowcol(3))
         Next
      Next
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control