Problemas con Access!

[Jarkaos]

Hola!
He estado intentando grabar registros en una base de datos access pero no me resulta. La aplicacion es una lista de contactos, hasta ahora el usuario puede buscar por el nombre en la base de datos, navegar por la base de datos pero no puedo hacer que se agregen nuevos registros en la bd. Lo que he logrado hasta ahora es ingresar los datos del nuevo contacto y al hacer click en "agregar" el datagrid se actualiza mostrando el nuevo contacto, pero no se graba en la base de datos. Les coloco el codigo para ver si me pueden ayudar con este problema.

Public Class Form1

Código:

Private Sub FriendsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.FriendsBindingSource.EndEdit()
        Me.FriendsTableAdapter.Update(Me.FriendsDataSet.friends)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FriendsTableAdapter.Fill(Me.FriendsDataSet.friends)

    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        ' Crea la nueva fila
        Dim newfriendsRow As friendsDataSet.friendsRow
        newfriendsRow = Me.FriendsDataSet.friends.NewfriendsRow()

        'Agrega elemntos en la nueva fila

        newfriendsRow.lastName = txtNytEfter.Text
        newfriendsRow.firstName = txtNyttNamn.Text
        newfriendsRow.city = txtNyStad.Text
        newfriendsRow.address = txtNyAdress.Text
        newfriendsRow.telephone = txtNyTelefon.Text

        ' Agrega la fila en el datagrid de la aplicacion
        Me.FriendsDataSet.friends.Rows.Add(newfriendsRow)


        ' Grabar la fila en Bd 

        ' Esto no me funciona!!!!!
        Me.FriendsTableAdapter.Update(newfriendsRow)

    End Sub

    Private Sub comSok_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comSok.SelectedIndexChanged
        If Me.comSok.SelectedIndex <> -1 Then
            txtSokNamn.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("firstName").ToString
            txtSokEfter.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("lastName").ToString
            txtSokStad.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("city").ToString
            txtSokAdress.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("address").ToString
            txtSokTele.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("telephone").ToString

        Else
            Exit Sub
        End If
    End Sub
End Class

Les estare super agradecido si me pudieran ayudar a encontrar el problema.
Se que se podria hacer con algun "BindingNavigator" pero quiero utilizar mis propios botones.