Primero de todo , gracias por la respuesta, pero el problema es que la function de pg me devueleve "vacio", o sea nada, he cambiado incluso los valores de retorno a entero y lo mismo, le he asigando un tercer valor(de OUT), lo mismo,aparece vacio
miv no recoge nada...
He hecho otra funcion, como dje, cambio los parametros a otros tipos(smallint), con valor de out, pero siempre devuelve "nada", ni siquiera "0".
REviso en modo depuracion(desde vb6. pq no puedo desde pg) el valor devuelto y 
esta vacio


suso escribió:

Set tablas = cmd.Execute() ' tablas es el RecordSet
miv = cmd.Parameters("resultado")
If miv = True Then
    MsgBox "hola"
ElseIf miv = False Then
   MsgBox "adios"
End If

if miv = 't' Then
        msgbox
elseif miv = 'f' then
        ...
end if


BTW hasta donde puedo ver, tu función está conceptualmente mala, porque
si dos transacciones la ejecutan al mismo tiempo, la segunda no va a ver
al mismo tiempo?
la fila insertada por la primera, y por lo tanto no te va a proteger
precisamente contra aquello que te quieres proteger.


--
TIP 10: no uses HTML en tu pregunta, seguro que quien responda no podrá leerlo

Responder a