user defined type not defined

[LG]

It means that you didn't set Reference to a library.
For RDO -Microsoft Remote Data Object 2.0 Library.
If you are using ADO - Microsoft ActiveX Data Object 2.1 Library

[Mongo]

Your salad has apples and oranges in it. RDO apples relate to rdoEnvironment, rdoConnection and rdoResultsets. DAO delicious have good resultsets and ADO commands its own special flavor. *w*

An RDO purist might try....

Dim en As rdoEnvironment, cn As rdoConnection
Dim rs As rdoResultset, sql As String

On Error Goto oops
sql = "SELECT * FROM fruit_tree"
Set en = rdoEngine.rdoEnvironments(0)
With en
.CursorDriver = rdUseOdbc
End With
Dim cnStr As String
cnStr = "driver={SQL Server};server=mysvr;" & _
"database=pubs;uid=myuid;pwd=mypwd"
Set cn = en.OpenConnection(DSName:="", Prompt:=rdDriverNoPrompt, Connect:=cnStr)
Set rs = cn.OpenResultset(Name:=sql, Type:=rdOpenKeyset, Option:=rdAsyncEnable)
' do neat stuff...
oops:
rs.Close: cn.Close: en.Close
End Sub