vb图片保存数据库 sql2000

Dim fs As System.IO.FileStream
Path="d:\a.jpg"'要保存的文件路径 ，可以是任何文件。
Try
fs = New System.IO.FileStream(Path, IO.FileMode.Open, IO.FileAccess.Read) '读取文件名

Catch ex As Exception
Return "出错 " & Err.Description
End Try
Dim bxjlchang As Long '记录文件字节数
bxjlchang = fs.Length

Dim Data(bxjlchang) As Byte '声名变量
'写入变量
fs.Read(Data, 0, Int(bxjlchang))

fs.Close()

bxsqljl="select * from imageData"
a = New SqlClient.SqlDataAdapter(bxsqljl, Conn)

Dim b As New SqlClient.SqlCommandBuilder(a)
Dim rtab As New DataTable
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
a.Fill(rtab)
Dim row As DataRow
row = rtab.NewRow
row("pic")=Data
row("name"