Visual Basic

' open connection to mdb
objConn.Open()

Dim SchemaTable As DataTable=objConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

For Each dr As DataRow In SchemaTable.Rows

   Debug.Print(dr!TABLE_NAME.ToString())
   Debug.Print(dr!DATE_CREATED.ToString())

Next

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
                      ByVal childAfter As IntPtr, _
                      ByVal lclassName As String, _
                      ByVal windowTitle As String) As IntPtr

Private Declare Auto Function GetDesktopWindow Lib "user32.dll" () As IntPtr
End Function

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Boolean
End Function

' Get the window's handle
Dim WindowTitle as String = "Notepad"
Dim WindowToMax as IntPtr = FindWindowEx(GetDesktopWindow(), IntPtr.Zero, IntPtr.Zero, "WindowTitle")

' Maximize it
ShowWindow(WindowToMax, 3) ' 3 is for ShowMaximized

The type of the first permission that failed was:
System.Security.Permissions.SecurityPermission
The Zone of the assembly that failed was:
MyComputer

<Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
ByVal childAfter As IntPtr, _
ByVal lclassName As String, _
ByVal windowTitle As String)

End Function
Declare Auto Function GetDesktopWindow Lib "user32.dll" () As IntPtr

<Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Boolean
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WindowTitle As String = "QuadraMed CPR - Saint Francis Hospital Ulticare System"
        Dim WindowToMax As IntPtr = FindWindowEx(GetDesktopWindow(), IntPtr.Zero, IntPtr.Zero, "WindowTitle")
        ShowWindow(WindowToMax, 3) ' 3 is for ShowMaximized

    End Sub

Imports System.Runtime.InteropServices

Public Class Form1

    <Runtime.InteropServices.DllImport("user32.dll")> _
        Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindow( _
         ByVal lpClassName As String, _
         ByVal lpWindowName As String) As IntPtr
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim NotepadHwnd As System.IntPtr = FindWindow(Nothing, "Untitled - Notepad")
        MsgBox(NotepadHwnd.ToString)

        ShowWindow(NotepadHwnd, 3)

    End Sub

End Class

Imports System.Runtime.InteropServices

Module Module1

    Public Delegate Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Boolean
    <DllImport("user32")> Public Function EnumWindows( _
ByVal lpFunc As EnumWindowsProc, ByVal lParam As Integer) As Integer
    End Function

    Private Declare Auto Function GetWindowText Lib "user32" _
(ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, _ 
ByVal nMaxCount As Integer) As Integer
    Private Declare Auto Function FindWindowEx Lib "user32" _
(ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, _ 
ByVal lpsz1 As String, ByVal lpsz2 As String) As System.IntPtr

    <Runtime.InteropServices.DllImport("user32.dll")> _
    Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
      Private Function FindWindow( _
        ByVal lpClassName As String, _
      ByVal lpWindowName As String) As IntPtr
    End Function

    Public Function EnumWindowCBK(ByVal hWnd As IntPtr, ByVal lparam As Integer) As Boolean

        Static WindowText As New System.Text.StringBuilder(100)
        Static nRet As Long

        nRet = GetWindowText(hWnd, WindowText, WindowText.Capacity)
        If nRet <> vbNull Then

            If InStr(WindowText.ToString, "Notepad") <> 0 Then

                ' maximize it
                MsgBox(hWnd.ToString)
                ShowWindow(hWnd, 3)

            End If

        End If

        EnumWindowCBK = True

    End Function

End Module

Module1.EnumWindows(New Module1.EnumWindowsProc(AddressOf EnumWindowCBK), 0)