ObjectDBX problem

I am trying to start a dbx objectdocument to open a drawing, but I keep on getting an error msg "Problem loading application". I am using ACAD2004, I tried to register the axdb16.dll but I got the error "the dllregisterserver entry point was not found". I selected the ObjectDBX common 16 type library on the references box. if I run this code, I get an error "problem loading application". Can someone tell me how to do this properly? Thanks

Public Sub TestDBX()
Dim DbxDoc As New AXDBLib.AxDbDocument
Set DbxDoc = Application.GetInterfaceObject("AXDBLib.AxDbDocument")
End Sub

 

In 04, ObjectDbx is already registered and the correct class to use is
"ObjectDBX.AxDbDocument.16"

--
--
Ed
--

getting an error msg "Problem loading application". I am using ACAD2004, I
tried to register the axdb16.dll but I got the error "the dllregisterserver
entry point was not found". I selected the ObjectDBX common 16 type library
on the references box. if I run this code, I get an error "problem loading
application". Can someone tell me how to do this properly? Thanks

 

Thanks a lot!

 

Plus you probably shouldn't do this:

Dim DbxDoc As New AxDbDocument
Set DbxDoc = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.16")

Try this instead:

Dim DbxDoc As AxDbDocument
Set DbxDoc = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.16")

The "New" is redundant and has other issues as well when used in a Dim
statement.