VB pulling up MS Access

I need help.. I am pulling up ms access... how can i make it so it is that active window on top?


Sub Main()

Set acc = CreateObject("access.application")
acc.opencurrentdatabase "c:\my documents\db1.mdb"
acc.Visible = True
acc.UserControl = True

End Sub

There is one Win32 API Function.I con't remember the name of it. You can check it out in MSDN online help or in vb-world.net.
It take the Window handle as the perameter And makes that wind as the top on