Error msg - Object Collection: Couldn’t find items indicated by text.

[Nimrod Ronen]

when trying to run a Stored procedure on Oracle Database from VB application I get the next error: "Object Collection: Couldn’t find items indicated by text."

the code that I use look like that:

Private Sub btnGetServerDate_Click()
Dim QSQL As String
Dim CPw1 As rdoQuery
Dim Iusername, Ipassword As String
Dim Rs As rdoResultset

On Error GoTo ErrorHandler ' Enable error-handling routine.

QSQL = "{call Get_Sys_Time(?)}"

Set CPw1 = gCn.CreateQuery("", QSQL)

CPw1(0).Type = rdTypeDATE
CPw1(0).Direction = rdParamOutput
CPw1.Execute

If (CPw1(0) <> 0) Then
txtServerDate.Text = CPw1(0).Value
End If
CPw1.Close
GoTo Sub_Exit

ErrorHandler: ' Error-handling routine.
MsgBox Str(Err.Number) + Chr(13) + Err.Description, _
vbCritical + vbOKOnly, "CMS API Tester - Error"
Sub_Exit:

End Sub

The stord procedure code is:

PROCEDURE Get_Sys_Time (
oTime OUT DATE
)
IS
BEGIN
oTime := SYSDATE;
END Get_Sys_Time;

on my Work Station it is working but on other work station is not. even if I install MDAC 2.7 and win2k sp3.

can somebody can help???