URGENT - Need modification to ole export function

I have been experimenting with an mdb from Stephen Lebans to export a large number of ole objects from a database. It is without doubt superb, but I need to modify a field in each row to indicate where the file has been saved so I can use the output to still open the documents from the database.

Here's the code

What I need to do is update a field called DocPath to reflect where the document has been saved, but I have no idea how to achieve this, can anyone help.

Code is from http://www.lebans.com/oletodisk.htm (Stephen Lebans) take a trip there it has some excellent tools.

Thank you in advance

Private Sub ExportOLE()

' Array of Bytes to hold the contents of the OLE field
Dim a() As Byte
' For copy of OLE field before processing. Use to debug
' and examine new/unsupported objects.
Dim b() As Byte

' Temp vars
Dim x As Long
Dim lTemp As Long
Dim sl As String
Dim blRet As Boolean
Dim lngRet As Long
Dim DocPath As String

' File extension of OLE object
Dim sExt As String

' Load our Structured Storage Library
' Let's see if the StrStorage.DLL is available.
blRet = LoadLib()
If blRet = False Then
    ' Cannot find StrStorage.dll file
    Exit Sub
End If

' Create instance of cDIBSection in the modGetContentsStream module
'Dim ds As New cDIBSection
CreateDS

' Counter
Dim lTotalRecsExported As Long

On Error GoTo ERR_export

' This is an optional param we pass to fGetContentsStream.
' It will contain the original file name of the
' object when embedded as a Package.
Dim PackageFileName As String
' File number
Dim iFileHandle As Integer

' DAO object handles
Dim dbCurrent As daO.Database
Dim rs As daO.Recordset

lTotalRecsExported = 0

' Open the MDB
Set dbCurrent = OpenDatabase(MDBName, False, True)
' Open the recordset
Set rs = dbCurrent.OpenRecordset(TableName, dbOpenDynaset, dbReadOnly)

' Move to the first record
rs.MoveFirst

' Loop while not at EOF
Do While Not rs.EOF

    ' Make sure there is data in this record.
    lTemp = rs.Fields(OLEFieldName).FieldSize
    If lTemp > 0 Then
     
        ' Size our arays
        ReDim a(0 To lTemp - 1)
        ReDim b(0 To lTemp - 1)
       
        ' Copy the contents of the OLE field to our byte array
        a = rs.Fields(OLEFieldName).Value
        ' Make a copy
        b = a
       
        ' Make a  Call our function to extract the contents of the field
        PackageFileName = ""
        blRet = fGetContentsStream(a(), sExt, PackageFileName)
       
        ' Skip saving to disk if unsupported object type
        ' or fail on return
        If blRet = True Then

            ' Increment counter
            lTotalRecsExported = lTotalRecsExported + 1
           
           
            ' If a file was dragged from the Explorer window
            ' it will have a Package object Filename of NULL
            ' inserted by Shell.DLL
            ' Catch and give a temp file name
           
            If sExt = "pak" Then
                If Len(PackageFileName & vbNullString) < 3 Then
                    PackageFileName = rs.Fields(NameField).Value & "." & "bmp"
               
                End If
               
                ' Package object
                sl = SaveFolderName & "\" & PackageFileName
                'for debugging "C:\sourcecode\OLEdatatestfiles\"
            Else
                ' File Name derived from field user chose to "name" output files.
                sl = SaveFolderName & "\" & rs.Fields(NameField).Value & "." & sExt

            End If
           
   
            ' Write to disk
            iFileHandle = FreeFile
            Open sl For Binary Access Write As iFileHandle
            Put iFileHandle, , a
            Close iFileHandle
           
                ' Write original filed all debug
'                iFileHandle = FreeFile
'                Open sl & "DEBUG" For Binary Access Write As iFileHandle
'                Put iFileHandle, , b
'                Close iFileHandle
       
        End If
       
    ' Jump here if the OLE field for this record was empty
    End If
         
        ' Move to next record
        rs.MoveNext
       
        ' Update our Status Label
        Me.lblUpdate.Caption = "Exporting Record:" & rs.AbsolutePosition + 1 & _
        " of " & rs.RecordCount
        DoEvents
        ' Check our Flag
        If blExporting = False Then
            ' Exit this loop
            Exit Do
        End If
   
Loop

If blExporting = False Then
    ' Update our Status Label
    Me.lblUpdate.Caption = "Export Halted. " & lTotalRecsExported & " Records Exported!"
Else
    ' Update our Status Label
    Me.lblUpdate.Caption = "Export Completed. " & lTotalRecsExported & " Records Exported!"
End If


EXIT_export:
Set rs = Nothing
dbCurrent.Close
Set dbCurrent = Nothing
' Free our instance of cDIBSection
FreeDS

' Release structured storage library
UnLoadLib
Exit Sub

' Cleanup
ERR_export:

Resume EXIT_export
End Sub