VB SQL存图片错误 给个建议

Private Sub Command3_Click()
Dim cn As ADODB.Connection
Dim rs As
ADODB.Recordset
Dim str As String
Dim sql As String
Set myStream = New
ADODB.Stream
With myStream
.Type = adTypeBinary
.Open
.LoadFromFile
(str)
End With
cn.Open "provider=msdasql;driver={sql
server};server=XP-2013052834552\SQLEXPRESS;uid=sa;pwd=UFO58;database=A123"
StrSql = "Select * from QQ4 where ID='" & Text1.Text & "'"
'数据表连接字符串
rs.Open , cn, 3, 2
rs("pi") =
myStream.Read
rs.Update
myStream.Close
rs.Close
MsgBox "上传头像成功!"