怎么把图片保存到数据库中？（在线等待）

Dim tmpRs As ADODB.Recordset
            Dim mstream As ADODB.Stream
            Set tmpRs = New ADODB.Recordset
            tmpRs.Open 
            
            Set mstream = New ADODB.Stream
            mstream.Type = adTypeBinary
            mstream.Open            mstream.LoadFromFile ImageFileName
            tmpRs.Fields("Portrait").Value = mstream.Read
            tmpRs.Update