Open ImgAddr For Binary As # 1 

Open ImgAddr.text For Binary As # 1 

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim mstream As New ADODB.Stream
Dim SQLstr As String

        If ImgAddr.Text <> "" Then
            Set cn = New ADODB.Connection
            cn.ConnectionTimeout =  200 
            cn.Open "Provider=SQLOLEDB;data Source=WEBSRV;Initial Catalog=docob;User Id=docuser;Password="
            SQLstr = "Select docimg,uid from doclist where uid=" & CInt(UIDnum.Text)
            Set rs = New ADODB.Recordset
            rs.Open SQLstr, cn, adOpenDynamic, adLockOptimistic
            Set mstream = New ADODB.Stream
            mstream.Type = adTypeBinary
            mstream.Open
            mstream.LoadFromFile ImgAddr.Text
            rs.Fields("docimg").Value = mstream.Read
            rs.Update

        Else: ImgAddr.Text = "îòñóòâóåò àäðåñ ðèñóíêà"
        End If
        
        rs.Close
        cn.Close

End Sub