Hi,

Thank you for your reply. Meanwhile I found another solution using Command.

Here is a sample:

VBA client side:
'-------------------------------------------------------------
Private Function GetDestinationID(OrderID As Long) As Long
On Error GoTo GetDestinationID_Err

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command

With cmd

.ActiveConnection = CurrentProject.Connection
.CommandText = "usp_GetDestinationID"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@intOrderID", adInteger, adParamInput, , OrderID)
.Parameters.Append .CreateParameter("@intDestinationID", adInteger, adParamOutput)
.Execute
GetDestinationID = .Parameters("@intDestinationID").Value
End With

WrapUp:


Exit_GetDestinationID:
Set cmd = Nothing
Exit Function

GetDestinationID_Err:
Call LogMsgError(Err.Description, Err.Number, ModuleName$, "GetDestinationID")
Resume Exit_GetDestinationID
End Function

'-----------------------------------------------------
T-SQL server side:

CREATE PROCEDURE dbo.usp_GetDestinationID

(
@intOrderID int,
@intDestinationID int=0 OUTPUT
)

AS

SET NOCOUNT ON

BEGIN

SELECT @intDestinationID=lv.DestinationID
FROM dbo.[Land Voyages] AS lv INNER JOIN dbo.[Pickup Booking List] AS pbl
ON lv.LandVoyageID=pbl.LandVoyageID
WHERE pbl.OrderID = @intOrderID

END
GO
'------------------------------------

Regards

Dani