Give this a try. I am using this with a VB stand alone routine.
Public oApp As Inventor.Application
On Error Resume Next
Set oApp = GetObject(, "Inventor.Application")
If Err Then
MsgBox "Inventor must be running."
End
End If
Set oDoc = oApp.Documents.Open("d:\inventor work\work\20x20cover.ipt", True)