如何用VBA将图片批量导入“附件”字段

请问，有没有大侠知道，如何将图片批量导入“附件”类型的字段中，小弟使用 rs2("test").Value.LoadFromFile (CurrentProject.Path & "\" & rs2("id"))老是报错，一直提示“对象不支持该动作”。代码如下
    Dim rs2 As New ADODB.Recordset
    rs2.Open "实景照_日", CurrentProject.Connection, 1, 3
    rs2.AbsolutePosition = 1
   ……
            rs2("test").Value.LoadFromFile (CurrentProject.Path & "\" & rs2("id"))
            rs2.MoveNext  
   ……
其中“test"字段在表的”数据类型“是”附件“。
实在找不出原因，万分感谢各位给予指点。谢谢

技巧212 在数据库中存储相片.rar (23.33 KB)