Option Explicit

'API Declaration
Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

=================
sub RaiseAccess()

Dim hwnd As Long

'Find the MS ACCESS WINDOW
hwnd = FindWindow("OMain", "Microsoft Access")
If hwnd <> 0 Then MakeTopMost (hwnd)
'Then use MakeNormal(FindWindow("OMain","Microsoft Access") to bring it back down

end sub
=================