Anexando arquivos em campos de tabelas no Access

Um recurso muito interessante do Access é a possibilidade de gravar arquivos em campos.
Alguém já deve estar se perguntando qual a utilidade disto, mas imagine por exemplo, poder catalogar e guardar fotos ou imagens.
Obviamente o recurso deve ser utilizado com moderação para não aumentar o tamanho do mdb.
Bem, como sempre, pensando em automação para tornar simples as tarefas rotineiras, segue abaixo um código VBA para executar a operação de anexar arquivos.

;-)

Option Compare Database
Option Explicit

Sub AnexaArquivo()

    Dim rs          As DAO.Recordset
    Dim rsAnexo     As DAO.Recordset
    Dim db          As DAO.Database    

    Set db = CurrentDb()   

    db.Execute "DELETE FROM tabela1"    

    Set rs = db.OpenRecordset("tabela1")       

    rs.AddNew
    Set rsAnexo = rs.Fields("CampoAnexo").Value
    rsAnexo.AddNew
    rsAnexo.Fields("FileData").LoadFromFile "c:\teste.txt"
    rsAnexo.Update
    rs.Update

    rs.Close
    Set rs = Nothing    

    Set db = Nothing

End Sub