Как вставить рисунок через форму через ADODB? - VB

Формулировка задачи:

Как вставить рисунок в Access?

Решение задачи: «Как вставить рисунок через форму через ADODB?»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Sub</font> InsertImageToDatabase()
    <font color="blue">Dim</font> rst <font color="blue">As</font> ADODB.recordset
    <font color="blue">Dim</font> stm <font color="blue">As</font> ADODB.Stream
    
    <font color="blue">Set</font> rst = <font color="blue">New</font> ADODB.recordset
    <font color="blue">Set</font> stm = <font color="blue">New</font> ADODB.Stream

    rst.<font color="blue">Open</font> <font color="teal">"Table1"</font>, CurrentProject.Connection, _
      adOpenKeyset, adLockOptimistic

    stm.<font color="blue">Type</font> = adTypeBinary
    stm.<font color="blue">Open</font>
    stm.LoadFromFile <font color="teal">"D:\Temp\Img.JPG"</font>

    rst.AddNew
    rst.Fields(<font color="teal">"Img"</font>) = stm.Read
    rst.Update
    
    rst.<font color="blue">Close</font>
    <font color="blue">Set</font> rst = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        