Очистка поля Вложение (Attachment) в Форме

Private Sub cmdВашаКнопкаОчиститьВложение_Click()
'Очистка поля Вложение в Форме
Dim rsAttachments As DAO.Recordset
'Установка набора записей вложений из поля набора записей формы
    Set rsAttachments = Me.Recordset!TestAttachment.Value
    Do While Not rsAttachments.EOF
        'Debug.Print "Удаляю: " & rsAttachments("FileName")
        rsAttachments.Delete   'Удаление
        rsAttachments.MoveNext 'Следующее вложение
    Loop
    Me.attВашеПолеВложение.Requery 'Обновление поля в форме
    rsAttachments.Close
    Set rsAttachments = Nothing
End Sub