Manejo de adodb con postgres

[edwinsp]

Hola a todos, estoy tratando de usar postgres como base de datos y en ella los procedimientos almacenados son funciones que devuelven un tipo(dato) de valor, la cuestion es que deseaba hacerlo de la siguiente manera:

Dim cmd As New ADODB.Command
Dim i As Integer
ocnx.Conectar (strcon)
cmd.ActiveConnection = ocnx.cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "pa_grabarauxiliar"
cmd.Parameters.Append cmd.CreateParameter("xcodigo", adChar, adParamInput, 2, Trim(cLibro.codigo))
cmd.Parameters.Append cmd.CreateParameter("xdescri", adVarChar, adParamInput, 50, cLibro.descripcion)
cmd.Parameters.Append cmd.CreateParameter("xcentraliza", adChar, adParamInput, 1, cLibro.centraliza)
cmd.Parameters.Append cmd.CreateParameter("xorden", adInteger, adParamInput, , cLibro.orden)
cmd.Parameters.Append cmd.CreateParameter("imodi", adInteger, adParamInput, , IIf(modi, 1, 0))
cmd.Execute i

Creen que es factible hacerlo de esta manera? me parece que tengo problemas con los tipos de datos soportados, si alguien ha podido hacerlo de esta manera agradeceria mucho su ayuda