Public Class Form1

    Private Sub TblContactsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblContactsBindingNavigatorSaveItem.Click
        
        Me.Validate()
        Me.TblContactsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.AddressBookDataSet)

    End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'AddressBookDataSet.tblContacts' table. You can move, or remove it, as needed.
        Me.TblContactsTableAdapter.Fill(Me.AddressBookDataSet.tblContacts)

    End Sub
End Class

Dim fs As IO.FileStream = New IO.FileStream(OD.FileName, IO.FileMode.Open, IO.FileAccess.Read)
Dim r As IO.BinaryReader = New IO.BinaryReader(fs)
Dim FileByteArray(fs.Length - 1) As Byte

r.Read(FileByteArray, 0, CInt(fs.Length))

sCmd = "INSERT INTO tbl (Gambar)" & _
    "Values " & _
    "(@sGambar)"

Dim cmd As New SqlCommand(sCmd, sConn)
cmd.Parameters.Add(New SqlParameter("@sGambar", FileByteArray))
            
cmd.ExecuteNonQuery()

If (OD.ShowDialog() = Windows.Forms.DialogResult.OK) Then
      picstaf.Image = Image.FromFile(OD.FileName)
End If

If (OD.ShowDialog() = Windows.Forms.DialogResult.OK) Then
      picstaf.Image = Image.FromFile(OD.FileName)
End If