RDO won't work

[pcawdron]

I can't get anything to work!!!!

I would like to use RDO to access the table and column names of an AS400.

I've got a copy of the Microsoft article HOW TO: Use ODBC API SQLTables Function with Visual Basic and RDO, but I can't get it to work. The problem seems to be something fundamental as I can't get any of the RDO classes and objects to fire at all, even in the debug window. Yes, I've added it as a reference to the project, I can see all the RDO members comming up automatically when I DIM a varibale, but I keep getting the error "ActiveX component can't create object or return reference to this object (Error 429)"

I've ensured RDO is registered by running "regsvr32 MSRDO20.dll" and it registers successfully. But I still can't use it. The following sample code from Microsoft fails on the first line with the same error.

Dim en As rdoEnvironment
Private Sub Form_Load()
With rdoEngine
.rdoDefaultLoginTimeout = 20
.rdoDefaultCursorDriver = rdUseOdbc
.rdoDefaultUser = ""
.rdoDefaultPassword = ""
End With
Set en = rdoEnvironments(0)
For Each en In rdoEnvironments
Debug.Print "LoginTimeout:" & en.LoginTimeout
Debug.Print "CursorDriver:" & en.CursorDriver
Debug.Print "User:" & en.UserName
Next
End Sub

HELP!