Actualizar base de datos Access con da

[chascos69]

Hola

Quiero abrir una base de datos Acccess y insertarle lineas a una tabla. Para eso tengo datos en el datatable dtOrigen y lo paso al dataset dsDatos usando Merge pero aunque el dataset dsDatos se llena con las lineas de dtOrigen al hacer el update del dataadapter no actualiza nada en la tabla del Access... porque?

Gracias

Codigo:
Dim MiConexion As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0; ;Persist Security Info=False; Data Source=BasedeDatosPersonas.mdb")

Dim da As New OleDb.OleDbDataAdapter(" SELECT * FROM Personas" , MiConexion)
Dim builder As New OleDb.OleDbCommandBuilder(da)
Dim dsDatos As New DataSet()

With da
.FillSchema(dsDatos, SchemaType.Source, "dsDatos")
.InsertCommand = builder.GetInsertCommand
'.UpdateCommand = builder.GetUpdateCommand
'.DeleteCommand = builder.GetDeleteCommand
.Fill(dsDatos)
End With

'Insertar lineas
dsDatos.Tables(0).Merge(dtOrigen, True, MissingSchemaAction.Ignore)

da.Update(dsDatos.Tables(0))

da.Dispose()
MiConexion.Dispose()
dsDatos.Dispose()