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