Public Function OpenFirstAttachmentAsTempFile(ByRef rstCurrent As DAO.Recordset, ByVal strFieldName As String) As String 

    Dim rstChild As DAO.Recordset2
    Dim fldAttach As DAO.Field2
    Dim strFilePath As String
    Dim strTempDir As String

    Dim stDocName As String
    Dim mydate

stLinkCriteria = "[inspectjn]=" & "'" & [strTrackingNum] & "'" And IsNull([accqty])

SELECT tblHL.[Heat Number]
FROM tblHL, Table1
WHERE (([hl]=[table1].[hl1]));

Function Median (tName As String, fldName As String) As Single
  Dim MedianDB As DAO.Database
  Dim ssMedian As DAO.Recordset
  Dim RCount As Integer, i As Integer, x As Double, y As Double, _
      OffSet As Integer
  Set MedianDB = CurrentDB()
  Set ssMedian = MedianDB.Openrecordset("SELECT