Public Function GetAllTables() As List(Of String)
        Dim tables As New List(Of String)()
 
        ConDataTbl.Open()
        Dim dataTable As DataTable = ConDataTbl.GetOleDbSchemaTable( _
          OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, _
          Nothing})
 
        For i As Integer = 0 To dataTable.Rows.Count - 1
            If dataTable.Rows(i)("TABLE_TYPE").ToString() = "TABLE" Then
                tables.Add(dataTable.Rows(i)("TABLE_NAME").ToString())
            End If
        Next
 
        ConDataTbl.Close()
        Return tables
    End Function

Der Weg ist weit und steinig .. (