как сохранить файл в БД с помощью SaveFileDialog ?

у меня есть достижение с помощью SaveFileDialog берется файл и сохраняется в строке создавая новую, но при сохрание в выделенном строке у него этого не получается.

Dim myRow As DataRow
myRow = R__SDataSet.Files.Rows(0)

Dim MyData() As Byte
MyData = myRow("file_file")
Dim K As Long
K = UBound(MyData)


SaveFileDialog1.FileName = myRow("file_Name")
SaveFileDialog1.ShowDialog()
Dim fs As New FileStream _
(SaveFileDialog1.FileName, FileMode.OpenOrCreate, _
FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()

хуже когда наоборот из БД с помощью SaveFileDialog берется файл и сохраняется на диск
тут у меня проблема в с выбором строки т.е он выбирает только первую строку несмотря на то что на форме в DataGridView-е я выделил другую строку

Dim myRow As DataRow
myRow = R__SDataSet.Files.Rows(0)

Dim MyData() As Byte
MyData = myRow("file_file")
Dim K As Long
K = UBound(MyData)


SaveFileDialog1.FileName = myRow("file_Name")
SaveFileDialog1.ShowDialog()
Dim fs As New FileStream _
(SaveFileDialog1.FileName, FileMode.OpenOrCreate, _
FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()

сохранение файла из диска в БД

openFileDialog1.ShowDialog()
Dim fs As New FileStream _
(openFileDialog1.FileName, FileMode.OpenOrCreate, _
FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, fs.Length)
fs.Close()

'con.Open()
'da.Fill(R__SDataSet, "Files")
Dim myRow As DataRow
myRow = Me.R__SDataSet.Tables("Files").NewRow()

'myRow("file_ID") = File_IDTextBox.Text
myRow("rs_ID") = Rs_IDTextBox.Text
myRow("file_Name") = File_NameTextBox.Text
myRow("file_file") = MyData
R__SDataSet.Tables("Files").Rows.Add(myRow)
'da.Update(R__SDataSet, "Files")