Function Result(DateID, CommodityID As Integer)  
     Dim SQL As String
     Dim CurrentBasa As Database
     Dim MyQueryDef As QueryDef
     Dim MyRecordSet As Recordset
     Set CurrentBasa = CurrentDb 'Куда присобачить скрипт для выпонения?. 
     Set MyQueryDef = CurrentBasa.CreateQueryDef( "")
     SQL = " ...В теле скрипта вычисляется сумма [Sum] в соответствии DateID, 
              CommodityID ..."
     MyQueryDef.SQL = SQL
     Set MyRecordSet = MyQueryDef.OpenRecordset
     Result = MyRecordSet!Sum
   End Function