GetDatabaseTables - Retrieving the table names of a database

' Returns the names of all the tables in the database identified by the input 
' connection string
' Requires Imports System.Data.OleDb
'
' Example:
'   Dim tables() As String = GetDatabaseTables
' ("PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=d:\testdb.mdb")
'   Dim table As String
'   For Each table In tables
'       Debug.WriteLine(table)
'   Next

Function GetDatabaseTables(ByVal connString As String) As String()
    Dim cn As New OleDbConnection(connString)
    cn.Open()
    ' get a DataTable with all the info
    Dim dt As DataTable = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
        New Object() {Nothing, Nothing, Nothing, "TABLE"})
    cn.Close()
    ' save the table names into a string array
    Dim tables(dt.Rows.Count - 1) As String
    Dim i As Integer
    For i = 0 To dt.Rows.Count - 1
        tables(i) = dt.Rows(i)(2)
    Next
    Return tables
End Function