Create or replace procedure ......
..........
if i.date_to is null then 
date_sys:=to_date(sysdate,'dd.mm.yyyy'); 
end if;
......................
end;

Private Sub Command3_Click()
Dim sSQLString As String
sSQLString = "select to_date(sysdate,'dd.mm.yyyy') from dual"
      Set rs = Connection1.Execute(sSQLString)
      Text1.Text = rs("sysdate")
      Set rs = Nothing
End Sub

date_sys:=to_date(sysdate,'dd.mm.yyyy')

Dim sSQLString As String

sSQLString = "declare num number :='" & Text1.Text & "'; mon number :=" & Text3.Text & "; yea number :=" & Text4.Text & "; begin billdba.recalc(num,mon,yea); end;"
      Set rs = Connection1.Execute(sSQLString)
      Set rs = Nothing

Dim username$, Password$, DatabaseName$, Connect$
username$ = Form3.Text1.Text
Password$ = Form3.Text2.Text
DatabaseName$ = Form3.Text3.Text
Connect$ = username$ + "/" + Password$

Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase(DatabaseName$, Connect$,  0 &)

OraDatabase.Parameters.Add "EMPNO", Text1.Text, ORAPARM_INPUT
OraDatabase.Parameters("EMPNO").serverType = ORATYPE_VARCHAR

OraDatabase.Parameters.Add "MON", Text3.Text, ORAPARM_INPUT
OraDatabase.Parameters("MON").serverType = ORATYPE_NUMBER

OraDatabase.Parameters.Add "YER", Text4.Text, ORAPARM_INPUT
OraDatabase.Parameters("YER").serverType = ORATYPE_NUMBER

OraDatabase.ExecuteSQL ("declare Begin procedure(:EMPNO, :MON,:YER); end;")

Set OraDatabase = Nothing

Dim p As ADODB.Parameters
cmd.ActiveConnection = Connection1
cmd.CommandTimeout =  20 
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "procedure"
Set p = CMD.Parameters
p.Append cmd.CreateParameter("EMPNO", adVarChar, adParamInput,  50 , Text1.Text)
p.Append cmd.CreateParameter("MON", adNumeric, adParamInput, , Text3.Text)
p.Append cmd.CreateParameter("YER", adNumeric, adParamInput, , Text4.Text)
cmd.Execute

Dim mon as String
Dim yer as String

mon=Text3.Text
yer=Text4.Text


Debug.Print "Mon=" & mon
Debug.Print "Yer=" & yer

Connection1 = "Provider=OraOLEDB.Oracle.1;Password=" & Text2.Text & ";Persist Security Info=True;
User ID=" & Text1.Text & ";Data Source=" & Text3.Text & ";"

Connection1 = "Provider=MSDAORA.1;Password=" & Text2.Text & ";Persist Security Info=True;User ID=" & Text1.Text & ";Data Source=" & Text3.Text & ";"