need help converting from RDO to ADO

[Gregory Church]

I am in the process of converting a bunch of code from RDO to ADO, as
the RDO version constantly pops up "Object could not be created" type
erros (although the complied version runs fine, go figure) and need
some help below is a sample of the code I'm having questions about,
many modules are structured this way:

Public Function GetNextApCtrlNum(ardoCn As rdoConnection, aiTrxType As
Integer, _
asCompanyCode As String, ByRef
asNewApCtrlNum As String) As Integer

Dim SQL As String
Dim qd As rdoQuery


SQL = "{? = call apnewnum_sp (?, ?, ?) }"
Set qd = ardoCn.CreateQuery("PsTest", SQL)

' Set Parameter "direction" for each output and return value
parameter.
qd(0).Direction = rdParamReturnValue
qd(3).Direction = rdParamOutput

' Set the input argument values.
qd.rdoParameters(1) = aiTrxType
qd.rdoParameters(2) = asCompanyCode

Call qd.Execute

'Set up the return values
GetNextApCtrlNum = CInt(qd(0))
asNewApCtrlNum = qd(3)

End Function

What would the ADO version of this be? Thanks for any help anyone can
give!