Sysdate Oracle передаю в VB, ошибка литерала?

Формулировка задачи:

Доброго времени суток,
Возникла странная ошибка, которая у меня выходила, но потом с помощью динамического запроса, вышел из ситуации (но там не использовал текущее время), теперь просто возникла необходимость использовать sysdate. Собственно все просто, есть вот такая простейшая процедура:

Create  replace procedure ......
..........
 i.date_to  null  
date_sys:=to_date(sysdate,
 ;
......................
;

Делаю простейший запуск и на этой вылетает ошибка литерала, собственно подставил все это дело в динамику, ошибка исчезает, но sysdate определяется неверно, из-за чего возвращается неправильное значение :(
Испробовал много вариантов, не получается подставить системную дату хоть треснись.
В Оракле все работает кул. А с VB ошибка :(
Может знает как с этим бороться :)

Решение задачи: «Sysdate Oracle передаю в VB, ошибка литерала?»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> RunProc(Conn <font color="blue">as</font> ADODB.Connection)

<font color="blue">Dim</font> cmd <font color="blue">As</font> ADODB.Command
<font color="blue">Dim</font> p <font color="blue">As</font> ADODB.Parameters

<font color="blue">On</font> <font color="blue">error</font> <font color="blue">goto</font> err_debug

<font color="darkblue"><b>100</b></font> <font color="blue">Set</font> cmd=<font color="blue">New</font> ADODB.Command
<font color="darkblue"><b>110</b></font> <font color="blue">Set</font> cmd.ActiveConnection = Conn
<font color="darkblue"><b>120</b></font> cmd.CommandTimeout = <font color="darkblue"><b>20</b></font>
<font color="darkblue"><b>130</b></font> cmd.CommandType = adCmdStoredProc
<font color="darkblue"><b>140</b></font> cmd.CommandText = <font color="teal">"procedure"</font>
<font color="darkblue"><b>150</b></font> <font color="blue">Set</font> p = CMD.Parameters
<font color="darkblue"><b>160</b></font> p.Append cmd.CreateParameter(<font color="teal">"RET"</font>, adInteger, adParamReturnValue)
<font color="darkblue"><b>170</b></font> p.Append cmd.CreateParameter(<font color="teal">"EMPNO"</font>, adVarChar, adParamInput, <font color="darkblue"><b>50</b></font>, <font color="teal">"a"</font>)
<font color="darkblue"><b>180</b></font> p.Append cmd.CreateParameter(<font color="teal">"MON"</font>, adNumeric, adParamInput, , <font color="darkblue"><b>1</b></font>)
<font color="darkblue"><b>190</b></font> p.Append cmd.CreateParameter(<font color="teal">"YER"</font>, adNumeric, adParamInput, , <font color="darkblue"><b>2008</b></font>)
<font color="darkblue"><b>200</b></font> cmd.Execute

<font color="blue">exit</font> <font color="blue">Sub</font>

err_debug:
Debug.<font color="blue">Print</font> Erl & <font color="teal">":"</font> & Err.Number & <font color="teal">" "</font> & Err.Description
<font color="blue">End</font> <font color="blue">Sub</font>

                        