حفظ الصورة في قاعدة البيانات

السلام عليكم ورحمة الله وبركاته:

طلب تعديل الكود

dim st as new adodb.stream

st.type = adtypebinary

st.open

st.loadfromfile commondiloge1.filename

الكود الآن يحفظ الصورة في قاعدة البيانات مضبوط ولكن عن طريق المسار

المطلوب كيف يحفظ الصورة المعروضه في الأداة image مباشرة

بمعنى آخر عند النقر على زر حفظ يحفظ الصورة الموجوده في الأداة image

وليس بتتبع مسار الصورة المفتوحة مؤخراً ليقوم بحفظها

وشكراً مقدماً