کمک- ذخیره نشدن تصویر در بانک SQL2008

[arman_Delta2002]

سلام
من هرکاری میکنم تصویر در بانک اطلاعاتی ذخیره نمیشه موندم چکار کنم:گریه:

باز کردن عکس و ریختن در Pic

Dim strFile As String = String.Empty

strFile = String.Empty

Dim stream1 As FileStream
Dim reader As BinaryReader

Try
Dim dlg As New OpenFileDialog
dlg.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG;*.ICO)|*.BMP;*.JPG;* .GIF;*.PNG;*.ICO|All files (*.*)|*.*"
If dlg.ShowDialog = DialogResult.OK Then
strFile = dlg.FileName
stream1 = New FileStream(strFile, FileMode.Open)
reader = New BinaryReader(stream1)

PictureBox1.Image = Image.FromStream(stream1)

End If
Catch ex As IOException
MessageBox.Show(ex.Message)
End Try


بروز رسانی رکورد


Dim ms As New MemoryStream
Dim arrimage() As Byte = ms.GetBuffer

With CompanyDataAdaptor1.UpdateCommand
.Parameters("@CompanyName").Value = TextBox_NameSherekat1.Text

Try
Dim MSPic As New MemoryStream
PictureBox1.Image.Save(MSPic, PictureBox1.Image.RawFormat)
Dim arrPic() As Byte = MSPic.GetBuffer
.Parameters("@Logo1").Value = arrPic
MSPic.Close()
Catch exc As Exception
.Parameters.RemoveAt("@Logo1")
End Try

If CheckBox_Faall1.Checked = True Then
DeActiveAllRecord("D_Company")
End If
.Parameters("@Active").Value = CheckBox_Faall1.Checked
.Parameters("@DateAdd").Value = TextBox_DateInsert1.Text
.Parameters("@DateEdit").Value = TextBox_DateEdit1.Text
.Parameters("@Select1").Value = CheckBox_Selected1.Checked
.Parameters("@ID").Value = Val(Label1.Text)
.ExecuteNonQuery()
End With
MsgBox("داده تقییر نمود", MsgBoxStyle.OkOnly, "ویرایش")
RefreshDataForm = Base_Company.Name
Me.Close()


هیچ خطایی نمیده و کد تا آخر خط به خط اجرا میشه بدون مشکل ولی رکورد خالیه !!!!!!
بقیه فیلد ها تقییر میکنن ولی فیلد تصویر خالیه بازم!!!!!
:متفکر::متفکر:
فکر کنم باز خردم به بد شانسی
نوع فیلد تصویر در بانک اطلاعاتی varbaynery(max) و در کد نویسی نوعش Binery تعریف میشه