Actualizar BD a partir de un dataGrid

[SuperPinwi]

ahora mismo he conseguido que no me de errores al presionar el botón guardar, pero el caso es que tampoco me actualiza la base de datos

Este es mi Código

Código:

Imports System.Data.OleDb
Public Class Configuracion
    Inherits System.Windows.Forms.Form

    'Instancia de la clase que permite desplazar los controles del formulario
    Dim Movimiento As New MoverControles
    'DataSet
    Friend ds As New DataSet("Propiedades")
    'Objeto que permite actualizar la base de datos
    Friend DataGrid1 As New System.Windows.Forms.DataGrid
    'Dim OleDbUpdateCommand As OleDbCommand = New OleDbCommand
    Dim OleDbDataAdapter1 = New OleDb.OleDbDataAdapter("SELECT * FROM Propiedades", OleDbConnection1)
    Dim commBuild = New OleDbCommandBuilder(OleDbDataAdapter1)

    Private Sub Configuracion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Fill llena las filas desde la fuente de datos usando la sentencia select
        MuestraTablaBD()
        Movimiento.AsignarEventos(Me)
    End Sub

    Private Sub BGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BGuardar.Click
        'Actualizamos los datos
        ds.AcceptChanges()
        OleDbDataAdapter1.Update(ds, "Propiedades")
        DataGrid1.Refresh()
        Me.Close()
        'Mostramos un mensaje
        MessageBox.Show("Se ha actualizado la base de datos", "Aviso")
    End Sub

    Private Sub BSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSalir.Click
        Me.Close()
    End Sub

    Public Sub MuestraTablaBD()
        Dim dt As New DataTable
        Dim dr As DataRow
        Dim i As Integer
        Try
            OleDbConnection1.Open()
            OleDbDataAdapter1 = New OleDb.OleDbDataAdapter("SELECT * FROM Propiedades", OleDbConnection1)
            ds = New DataSet("Propiedades")
            'Llenamos el dataset con el contenido de la original
            OleDbDataAdapter1.FillSchema(ds, SchemaType.Source, "Propiedades")
            OleDbDataAdapter1.Fill(ds, "Propiedades")
            'Llenamos la tabla con el contenido del dataset
            dt = New DataTable
            dt = ds.Tables("Propiedades")
            'Llenamos la tabla de la base de datos con la información del dataset
            DataGrid1.DataSource = ds.Tables("Propiedades")
        Catch ex As Exception
            MessageBox.Show("Ha habido algún problema", "Aviso")
        Finally
            OleDbConnection1.Close()
        End Try
    End Sub

End Class

¿Alguna sugerencia?