Its OK don't bother rushing in to help, I've solved it. SO for those of you that looked and said I don't know how to do that or something along those lines, here is the code. For those of you who just didn't care about my predicament...shame on you and may your errors be plentiful.


Private Sub Command1_Click()
Dim a As Access.Application

Set a = CreateObject("Access.Application")
a.OpenCurrentDatabase App.Path & "\NWind.mdb"
a.Visible = True
a.DoCmd.OpenReport "Catalog", acViewPreview
a.DoCmd.Maximize

End Sub

Thanks a bunch
Bigley