Sql Server中Image类型字段在VB.NET中的读写操作

Sql Server中Image类型字段在VB.NET中的读写操作(2)             Dim tmpImg As image                    
            Dim r As DataRow                         
            Dim ms As New MemoryStream    
            Dim data() As Byte                         
            Dim r As Integer

            data=myDataSet.Tables(myTableName).Rows(r).Item("pic")
            ms = New MemoryStream
            ms.Write(data(0), 0, data(0).GetUpperBound(0))
           
            '在窗体中显示
            Me.pic0.Image = Image.FromStream(msImg(0))
           
            '存入到文件
            If  FileI.Exists("c:\xxx.jpg") Then
                  File.Delete("c:\xxx.jpg")
            End If
            fs = File.Create("c:\xxx.jpg")