' 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:	estdb.mdb")'   Dim table As String'   For Each table In tables'       Debug.WriteLine(table)'   NextFunction 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 tablesEnd Function