DatenbankName = Aktien_Pfad$ + Aktien_Datei$ & ".MDB"
        Dim TableName As String
        Dim LBoo_Rückgabe_Wert As Boolean = False
        Dim myConn As New System.Data.OleDb.OleDbConnection
        Dim myCommand As New System.Data.OleDb.OleDbCommand
        Dim myDataAdapter As New System.Data.OleDb.OleDbDataAdapter
        Dim myDataSet As New System.Data.DataSet
        Dim myDataRow As System.Data.DataRow
        Dim myDataTable As System.Data.DataTable
        'http://www.vbarchiv.net/forum/id24_i4485t4484.html
        Stop
        Try
            myConn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;data" & _
              "source=" + DatenbankName
            myCommand.Connection = myConn
            myConn.Open()
            myDataTable = myConn.GetOleDbSchemaTable( _
              OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, _
              Nothing, "AKTIEN"})
            Dim OK As Integer
            OK = False
            Aktien_Datenfelder_Anzahl = 0
            For Each drTables As DataRow In myDataTable.Rows
                Aktien_Datenfelder_Anzahl = Aktien_Datenfelder_Anzahl + 1
                TableName = drTables("Table_Name")
                If Aktien_Datenfelder_Anzahl < Aktien_Datenfelder_maxAnzahl Then
                    Aktien_Datenfelder_Name(Aktien_Datenfelder_Anzahl) = _
                      TableName
                End If
                If UCase$(TableName) = UCase$(Feld_Name$) Then
                    OK = True
                End If
            Next
            If OK = True Then
                Rückgabe_Wert = True
            Else
                '    DB_AKTIEN.Close()
                Rückgabe_Wert = False
            End If
        Catch ex As Exception
            Fehler_Anzeige
        End Try

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de