Viewing Access Reports in VB 2

I used this code to open a report from Visual Basic in Access. Hope this helps.<br>
<br>
Private Declare Function apiSetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long<br>
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal ncmdshow As Long) As Long<br>
Private Const SW_MAXIMIZE = 3<br>
<br>
<br>
Public Sub CreateReport()<br>
Dim objAccess As New Access.Application<br>
<br>
Set objAccess = New Access.Application<br>
<br>
With objAccess<br>
<br>
.OpenCurrentDatabase ("{path of database}")<br>
<br>
.DoCmd.OpenReport rptName, 2<br>
<br>
.DoCmd.SelectObject 3, rptName <br>
.DoCmd.Maximize<br>
<br>
lngret = apiSetForegroundWindow(.hWndAccessApp)<br>
lngret = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)<br>
lngret = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)<br>
<br>
End With<br>
End sub