Function Receipts(ByVal CHEMICAL As String) As ADODB.Recordset
    Dim sql As String
    Dim beginningDate As Date
    Dim endingDate As Date
    Dim chemicalID As String
    
    beginningDate = DateAdd("h", 6, [Forms]![frmProduction]![txtBeginningDate])
    endingDate = DateAdd("h", 30, [Forms]![frmProduction]![txtEndingDate])
    chemicalID = CHEMICAL

sql = "SELECT (Sum(Abs([tblReceiptScaleData]![WeightIn1]-[tblReceiptScaleData]![WeightOut2]+[tblReceiptScaleData]![WeightIn2]-[tblReceiptScaleData]![WeightOut1]))) AS OffloadQty " _
    & "FROM ItemMasterList INNER JOIN (sPULINH INNER JOIN tblReceiptScaleData ON sPULINH.Pono = tblReceiptScaleData.OrderNumber) ON ItemMasterList.SAGEItemKey = sPULINH.Itemkey " _
    & "WHERE (((ItemMasterList.OperationsDescription) = " & chemicalID & ") AND ((tblReceiptScaleData.TimeOut2) >= " & beginningDate & ") AND ((tblReceiptScaleData.TimeOut2) <= " & endingDate & ")); "
Set Receipts = New ADODB.Recordset
Receipts.Open sql, CurrentProject.Connection, , adLockOptimistic
'Receipts = Receipts("OffloadQty")
   Set Receipts = Nothing

End Function