Sub Exec_SP_DAILY_MANBAL_ADO(tdate As Date, tdatePREV As Date, usr, pas)
Dim tmBegin
    Dim objConn As New ADODB.Connection
    Dim objRs As New ADODB.Recordset
    Dim objComm As New ADODB.Command
    
    With objConn
        .Provider = "MSDAORA"
        .ConnectionString = "Data Source=DSNNAME;User ID=" & usr & "; Password=" & pas & ";"
        .Open
    End With
    
     ' Connect to the data source. 
    
     ' Set a stored procedure 
    objComm.CommandText = "ADM_SP_DAILY_MANBAL"
    objComm.CommandType = adCmdStoredProc
    Set objComm.ActiveConnection = objConn

     ' Execute the stored procedure on 
     ' the active connection object... 
     '    "ALFKI" is the required input parameter, 
     '    objRs is the resultant output variable. 
tmBegin = Timer
    objConn.ADM_SP_DAILY_MANBAL tdate, tdatePREV
    
    
     'Clean up. 
 '    objRs.Close 

    objConn.Close
    Set objRs = Nothing
    Set objConn = Nothing
    Set objComm = Nothing

 'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdconstoredprocasmethodonconnection.asp 

 'MsgBox "Executing complete in " & TimeStamp(Timer - tmBegin) 
End Sub