Private Sub Report_Open()
     
    Dim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim prm As ADODB.Parameter
     
    Dim fdate As Date
    
    Set cnn = CurrentProject.Connection
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = cnn
    
    cmd.CommandText =  "StoredProcedure2" 
    cmd.CommandType = adCmdStoredProc

    fdate =  "14 . 01 . 04 "
    cmd.Parameters( "@beg_date" ) = fdate
    
    cmd.Execute
    
    Set prm = Nothing
    Set cmd = Nothing
    cnn.Close
    Set cnn = Nothing

End Sub
[SRC]