و أخيراً توصلت للحل بمعونة أحد الأكارم قبل وضع الجزء الثاني من السؤال
و الفضل في معظمه لك يا @ابا جودى الغالي
أكرمك الله و رعالك
Dim db As DAO.Database
Dim rss1 As DAO.Recordset
Dim rss2 As DAO.Recordset
Set db = CurrentDb
Set rss1 = db.OpenRecordset("T11") ' أسم الجدول
Set rss2 = rss1.Fields("F11").Value ' أسم الحقل
While Not rss2.EOF
rss2.Fields("FileData").SaveToFile CurrentProject.Path 'مسار قاعدة البيانات
rss2.MoveNext
Wend
Set rss2 = Nothing
rss1.Close
Set rss1 = Nothing
Set db = Nothing