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 & ";"

Private Sub Command2_Click()
RunProc Connection1
end sub

Sub RunProc(Conn as ADODB.Connection)

Dim cmd As ADODB.Command
Dim p As ADODB.Parameters

On error goto err_debug

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

exit Sub

err_debug:
Debug.Print Erl & ":" & Err.Number & " " & Err.Description
End Sub

Call procedure(?,?,?)

ORA- 06512 : на  line  1 

billdba.myprocedure

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

procedure recalc_number
 (
 stelnumber varchar,
 smonth number,
 syear number)
 as
 ncost number;
 sstartsaldo number;
 sendsaldo number;
 ppaid number;
 ftelrn number;
 endmonth number;
 endyear number;
 gen_rn number;
 date_sys date;
 ttable varchar( 14 );

 begin

 if smonth =  1  then
 endyear:=syear- 1 ;
 endmonth:=  12 ;
 else
 endmonth:=smonth- 1 ;
 endyear:=syear;
 end if;

 ttable:='table'||syear||lpad(to_char(smonth),2,'0');

 if length(stelnumber)= 7  then
    for i in (select s.telnumber, s.date_from, s.date_to, s.rn, s.pa_id 
                from subscr_num s where s.telnumber=stelnumber) loop 

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

   begin
    Execute immediate 'select nvl(sum(c.cost),0) from '||ttable||' c where c.telfrom='''||i.telnumber||''' 
     and to_date(c.starttime, ''dd.mm.yyyy'') >= to_date('''||i.date_from||''',''dd.mm.yyyy'') 
     and (to_date(c.starttime, ''dd.mm.yyyy'') <= to_date('''||i.date_to||''',''dd.mm.yyyy'')
      or to_date(c.starttime, ''dd.mm.yyyy'') <= to_date('''||date_sys||''',''dd.mm.yyyy''))' 
     into ncost;
        exception when others then
          ncost:= 0 ;
    end;

    begin
    select nvl(sum(p.nsum), 0 ) into ppaid from payments_num p 
    where p.num_rn=i.rn and p.nmonth=smonth and p.nyear=syear;
        exception when others then
          ppaid:= 0 ;
    end;

    if ppaid is null then  ppaid:= 0 ; end if;


    begin
       select a.num_rn into ftelrn from accounts_num a
                      where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;
       exception when others then
               if ncost is null then ncost:= 0 ; end if;
               if ppaid is null then ppaid:= 0 ; end if;
               if sendsaldo is null then sendsaldo:= 0 ; end if;
                 begin
                 select max(a.rn) into gen_rn from accounts_num a;
                 exception when others then gen_rn:= 0 ;
                 end;
                 gen_rn:=gen_rn+ 1 ;
                 if gen_rn is null then gen_rn:= 1 ; end if;
        insert into accounts_num a values (gen_rn, i.rn, i.pa_id, smonth
                                           , syear, sendsaldo, ncost, ppaid
                                           , sendsaldo+ncost- 0 , '1'
                                           , i.date_from, i.date_to);
    end;

    update accounts_num a set a.pa_id=ppaid
                  where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;
                  
    begin
      select nvl(a.endsaldo, 0 ) into sendsaldo from accounts_num a
      where a.nmonth=endmonth and a.nyear=endyear and a.num_rn=i.rn;
    exception when others then sendsaldo:= 0 ;
    end;

    begin
       select nvl(a.startsaldo, 0 ) into sstartsaldo from accounts_num a
              where a.nmonth=smonth and a.nyear=syear and a.num_rn=i.rn;
    exception when others then sstartsaldo:= 0 ;
    end;

    update accounts_num a set a.startsaldo=sendsaldo where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;
    if ncost is null then ncost:= 0 ; end if;
    update accounts_num a set a.accrued=ncost where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;

    begin
      if ncost is null then ncost:= 0 ; end if;
      if ppaid is null then ppaid:= 0 ; end if;
      select nvl(a.endsaldo, 0 ) into sstartsaldo from accounts_num a where a.nmonth=endmonth and a.nyear=endyear and a.num_rn=i.rn;
      sendsaldo:=sstartsaldo+ncost-ppaid;
       exception when others
      then sendsaldo:= 0 ;
    end;

    update accounts_num a set a.endsaldo=(sstartsaldo+ncost-ppaid)
                     where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;

   end loop;                   

 end if;

 if stelnumber = '000' then
      for i in (select s.telnumber, s.date_from, s.date_to, s.rn, s.pa_id 
                from billdba.subscr_num s) loop

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

    begin
      Execute immediate 'select sum(c.cost) from '||ttable||' c  
        where c.telfrom ='''||i.telnumber||''' 
        and to_date(c.starttime, ''dd.mm.yyyy'') >= to_date('''||i.date_from||''',''dd.mm.yyyy'') 
        and (to_date(c.starttime, ''dd.mm.yyyy'') <= to_date('''||i.date_to||''',''dd.mm.yyyy'')
        or to_date(c.starttime, ''dd.mm.yyyy'') <= to_date('''||date_sys||''',''dd.mm.yyyy''))' 
        into ncost;
        exception when others then
        ncost:= 0 ;
    end;

    begin
    select sum(p.nsum) into ppaid from payments_num p 
    where p.num_rn=i.rn and p.nmonth=smonth and p.nyear=syear;
        exception when others then
          ppaid:= 0 ;
    end;

    if ppaid is null then  ppaid:= 0 ; end if;

    begin
       select a.num_rn into ftelrn from accounts_num a
                      where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;
       exception when others then
               if ncost is null then ncost:= 0 ; end if;
               if ppaid is null then ppaid:= 0 ; end if;
               if sendsaldo is null then sendsaldo:= 0 ; end if;
                 begin
                 select max(a.rn) into gen_rn from accounts_num a;
                 exception when others then gen_rn:= 0 ;
                 end;
                 gen_rn:=gen_rn+ 1 ;
                 if gen_rn is null then gen_rn:= 1 ; end if;
        insert into accounts_num a values (gen_rn, i.rn, i.pa_id, smonth
                                           , syear, sendsaldo, ncost, ppaid
                                           , sendsaldo+ncost- 0 , '1'
                                           , i.date_from, i.date_to);
    end;

    update accounts_num a set a.pa_id=ppaid
                  where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;
                  
    begin
      select a.endsaldo into sendsaldo from accounts_num a
      where a.nmonth=endmonth and a.nyear=endyear and a.num_rn=i.rn;
    exception when others then sendsaldo:= 0 ;
    end;

    begin
       select a.startsaldo into sstartsaldo from accounts_num a
              where a.nmonth=smonth and a.nyear=syear and a.num_rn=i.rn;
    exception when others then sstartsaldo:= 0 ;
    end;

    update accounts_num a set a.startsaldo=sendsaldo where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;
    if ncost is null then ncost:= 0 ; end if;
    update accounts_num a set a.accrued=ncost where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;

    begin
      if ncost is null then ncost:= 0 ; end if;
      if ppaid is null then ppaid:= 0 ; end if;
      select a.endsaldo into sstartsaldo from accounts_num a where a.nmonth=endmonth and a.nyear=endyear and a.num_rn=i.rn;
      sendsaldo:=sstartsaldo+ncost-ppaid;
       exception when others
      then sendsaldo:= 0 ;
    end;

    update accounts_num a set a.endsaldo=(sstartsaldo+ncost-ppaid)
                     where a.num_rn=i.rn and a.nmonth=smonth and a.nyear=syear;

    end loop;
   
 end if;

end;

Sub RunProc(Conn As ADODB.Connection)
Dim STELNUMBER As String
Dim cmd As ADODB.command
Dim p As ADODB.Parameters
On Error GoTo err_debug
stelnumber= 1000000 

 100  Set cmd = New ADODB.command
 110  Set cmd.ActiveConnection = Conn
 120  cmd.CommandTimeout =  1 
 130  cmd.CommandType = adCmdStoredProc
 140  cmd.CommandText = "billdba.recalc_number"
 150  Set p = cmd.Parameters
'160 p.Append cmd.CreateParameter("RET", adInteger, adParamReturnValue)
 170  p.Append cmd.CreateParameter("STELNUMBER", adVarChar, adParamInput,  7 , STELNUMBER)
 180  p.Append cmd.CreateParameter("SMONTH", adNumeric, adParamInput, ,  1 )
 190  p.Append cmd.CreateParameter("SYEAR", adNumeric, adParamInput, ,  2008 )
 200  cmd.Execute
Debug.Print Connection1.Errors.Count
Debug.Print Connection1.Errors( 0 ).Description
Exit Sub
err_debug:
Debug.Print Erl & ":" & Err.Number & " " & Err.Description
End Sub