Dim rsOuter As DAO.Recordset, rsInner As DAO.Recordset2
Dim fldAttachments As DAO.Field2, db As DAO.Database, strFolderPath as String
Set db = CurrentDb
strFolderPath="c:\documents\etc"
Set rsOuter = db.OpenRecordset("select [ID],[attachments] from [tablename]")
'loop thru all SP records:
Do Until rsOuter.EOF = True
Set fldAttachments = rsOuter.Fields("Attachments")
Set rsInner = fldAttachments.Value
Do Until rsInner.EOF = True
strFilePath = strFolderPath & "\" & rsOuter.Fields("ID").Value & "_" & Format(Now, "mmddyyhhmmss") & ".xlsb"
rsInner("FileData").SaveToFile strFilePath
rsInner.MoveNext
Loop
rsOuter.MoveNext
Loop