Updateando con el Dataset (10000 errores)

[alehawk]

Hola gente.
Quisiera saber si alguien puede darme uan mano con esto.
El tema es el siguiente, nunca uso datasets pero para este proyecto no me quedo otra. El tema es que lleno el datagrid con los datos desde adodb a traves de un dataset pero no hay forma de grabar el contenido del DS en la base de datos.
Hice 1000000 pruebas y todas tiran un resultado diferente (de error).
Pongo el codigo aca a ver si alguien descubre porque no puedo grabar las modificaciones a la base ya sea que ingrese un nuevo dato en alguna columna o modifique uno que ya esta cargado.
Gracias!

Código:

   Dim ds As New DataSet
    Dim ol As New OleDb.OleDbDataAdapter
    Dim cn As New ADODB.Connection
    Dim rs2 As New ADODB.Recordset
    Private Sub Datos_Ver_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Top = (frm1.Height / 2) + frm1.Top - (Me.Height / 2)
        Me.Left = (frm1.Width / 2) + frm1.Left - (Me.Width / 2)
        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & nombrebase & ";Persist Security Info=False")  ' note 5323 is the name of dbase 
        rs2.Open(tablanombre, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        ds.Tables.Add(tablanombre)
        ol.Fill(ds.Tables(tablanombre), rs2)
        ds.DataSetName = cn.ConnectionString
        Me.MSGrid.DataSource = ds.Tables(tablanombre)
        cn.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SQLString As String, connstring As String
        connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & nombrebase & ";Persist Security Info=False"
        SQLString = "Select * From " & tablanombre
        Dim DBDataAdapter As New OleDb.OleDbDataAdapter(SQLString, connstring)
        Dim DBUpdateCommand As New OleDb.OleDbCommandBuilder(DBDataAdapter)
        DBDataAdapter.Update(ds, tablanombre)
        Me.Close()
    End Sub