Слепок базы

 Partial Public Class SqlDataLayer
    Inherits DbContext

    Public Sub New()
        MyBase.New("name=SqlDataLayer")        
    End Sub

    Public Overridable Property Owners As DbSet(Of Owners)
    В базе есть еще таблицы. Здесь удалил оставив одну.

End Class


Partial Public Class Owners

    <Key>
    Public Property Id As Short

    <StringLength(100)>
    Public Property Name As String

End Class

Public Class OwnersRepository
    Implements IOwnersRepository, IDisposable

    Private context As BindingList(Of Owners)

    Sub New(dataLayer As SqlDataLayer)
        context = New BindingList(Of Owners)(dataLayer.Owners.ToList)
    End Sub

    Public Function Load() As BindingList(Of Owners) Implements IOwnersRepository.Load
        Return context
    End Function

    Public Sub Add(entry As Owners) Implements IOwnersRepository.Add
        context.Add(entry)
    End Sub

    Public Sub Delete(entry As Owners) Implements IOwnersRepository.Delete
        context.Remove(entry)
    End Sub

    Public Sub Update(entry As Owners) Implements IOwnersRepository.Update
       как здесь не очень пока понятно
    End Sub

    Public Sub Save() Implements IOwnersRepository.Save
       как здесь не очень пока понятно
    End Sub

    #Region "IDisposable Support"
    В коде есть. Здесь удалил за не надобностью.
    #End Region

End Class


Здесь то, как пытаюсь реализовать форму

Public Class FormOwners

    Private ownersRepository As IOwnersRepository

    Private ownersBindingSource As New BindingSource


    Private Sub FormOwners_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try

            Me.ownersRepository = New OwnersRepository(New SqlDataLayer)

            Me.ownersBindingSource.DataSource = Me.ownersRepository.Load

            Me.OwnersDataGridView.DataSource = Me.ownersBindingSource

        Catch exLoad As Exception

            Me.ButtonSave.Enabled = False

            MessageBox.Show("Reason: " + vbNewLine + exLoad.Message, "Exception: to load is not possible!", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub


    Private Sub ButtonSave_Click(sender As Object, e As EventArgs) Handles ButtonSave.Click

        Try

            Cursor = Cursors.WaitCursor

            Me.ownersRepository.Save()

        Catch exSave As Exception

            MessageBox.Show("Reason: " + vbNewLine + exSave.Message, "Exception: to save is not possible!", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally

            Cursor = Cursors.Default

        End Try

    End Sub