ti mando un esempio, ma sono all'inizio anch'io
codice:
    Private Sub btnProva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProva.Click
        Dim sql$ = "SELECT * FROM COMUNE ORDER BY ID"
        Dim StringaConnessione$ = "File Name=C:\Documenti\Interdev\Prova_Access.UDL"
        Dim Adapter As New OleDbDataAdapter(sql, StringaConnessione)
        Dim DataSet As New DataSet()

        Adapter.Fill(DataSet, "comune")

        'ricavo il prossimo id
        Dim Tabella As DataTable = DataSet.Tables("comune")
        Dim NumeroRecord% = Tabella.Rows.Count
        Dim UltimoID% = CType(Tabella.Rows(NumeroRecord - 1)("ID"), Integer)
        Dim ProssimoID% = UltimoID + 1

        'modifico un valore
        DataSet.Tables("comune").Rows(2)("comune") = "xxx"

        'aggiungo una riga
        Dim riga As DataRow = DataSet.Tables("comune").NewRow()
        riga("id") = ProssimoID
        riga("comune") = "Monteponi"
        DataSet.Tables("comune").Rows.Add(riga)

        'aggiorno il database
        Dim CommandBuilder As New OleDbCommandBuilder(Adapter)
        Adapter.Update(DataSet, "comune")

    End Sub