winform如何将图片上传至SQL2000 vb2005+sql2000

新建一页面,在页面上建两按钮和一个文本录入框,如何实现点击一按钮为浏览本地的图片JPG,BMP等,选中后路径自动进入至TEXTBOX中,点击第二他按钮即可实现上传至SQL?SQL数据库名为AQYH,表为TP. --------------------编程问答-------------------- 用数据流IO.Stream读图片往数据库里存
其实我觉得最好还是图片存一个文件夹里，数据库里存图片地址 --------------------编程问答-------------------- 数据库里的字段可以image 类型
也可以是byte类型
保存的时候无论是image类型还是byte类型
程序里都传byte[]数组
--------------------编程问答-------------------- 读取：
Dim msPhoto As MemoryStream
Dim Data() As Byte = ds.Tables(0).Rows(0)("图片字段")  '或DataReader
msPhoto = New MemoryStream(Data)
PictureBox1.Image = Image.FromStream(msPhoto)
msPhoto.Close()

保存：
Dim fs As FileStream
strSql = "update 表名 set 图片字段=@photo where 条件"
fs = New FileStream(strHeadFile, FileMode.Open, FileAccess.Read)
Dim Data(fs.Length) As Byte
fs.Read(Data, 0, Int(fs.Length))
Dim prm As New SqlParameter("@photo", SqlDbType.VarBinary, Int(fs.Length), ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Current, Data)
cmd.Parameters.Add(prm)
fs.Close()
cmd.CommandText = strSql
cmd.ExeNonQuery()
'insert同理 --------------------编程问答-------------------- 楼上的 才女哦！
--------------------编程问答-------------------- 每人回吗? --------------------编程问答-------------------- 浏览代码怎默写?? --------------------编程问答-------------------- 读取： 
Dim msPhoto As MemoryStream 
Dim Data() As Byte = ds.Tables(0).Rows(0)("图片字段")  '或DataReader 
msPhoto = New MemoryStream(Data) 
PictureBox1.Image = Image.FromStream(msPhoto) 
msPhoto.Close() 

保存： 
Dim fs As FileStream 
strSql = "update 表名 set 图片字段=@photo where 条件" 
fs = New FileStream(strHeadFile, FileMode.Open, FileAccess.Read) 
Dim Data(fs.Length) As Byte 
fs.Read(Data, 0, Int(fs.Length)) 
Dim prm As New SqlParameter("@photo", SqlDbType.VarBinary, Int(fs.Length), ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Current, Data) 
cmd.Parameters.Add(prm) 
fs.Close() 
cmd.CommandText = strSql 
cmd.ExeNonQuery() 
'insert同理
红色部分为什么提示未声明名称FILEMODE和FILEACCESS.
浏览按钮的代码应该怎么写?

补充：.NET技术 ,  VB.NET