Update requiere que insertcommand sea válido cuando se pasa la c ol

holaOs explico brevemente mi codigo,
tengo una bd sql server,entonces lo que hago es leer una tabla llamada x
da> y la cargo en un dataset toda la tabla select * from tabla esa tabla la
guardo en un xml. luego borro la tabla del sql server, y luego cargo en un
dataset el xml con la tabla q he borrado, pero que tiene la info, intento
añadir todos los elementos del dataset de xml al dataset de la tabla q
ahora
esta vacia y no me deja esta es la funcion a ver si sabeis decirme donde
falla. Al añadir las rows al dataset no da ningun error pq coge los
valores
que toca, pero es cuando quiero volcar el dataset relleno a la bd que me
dice
lo siguiente

"Update requiere que insertcommand sea válido cuando se pasa la colección
datarow con nuevas filas"

aqui va el codigo

Public Sub actualiza_campos(ByVal tabla As String, ByVal dt As DataSet)
On Error GoTo error1
Dim conexion As New OleDb.OleDbConnection
conexion.ConnectionString = objeto.Database.Alias &
";Password=smarteam;"


Dim MiDataAdapter As New OleDb.OleDbDataAdapter
MiDataAdapter.SelectCommand = New OleDb.OleDbCommand("SELECT * FROM
" & tabla, conexion)
conexion.Open()

Dim custDS As DataSet = New DataSet
MiDataAdapter.Fill(custDS, tabla)

Dim row As DataRow
Dim Fila As DataRow
Dim x, i As Long
Dim cadena() As String
Dim aux As String
Dim MiTabla As DataTable = dt.Tables("table")

cadena = NombresColumnas(dt, tabla)

For Each Fila In MiTabla.Rows
&nbs p; row = custDS.Tables(tabla).NewRow()
&nbs p; For i = 0 To UBound(cadena)
&nbs p; row(cadena(i)) = Fila.Item(cadena(i))
&nbs p; Next i
&nbs p; custDS.Tables(tabla).Rows.Add(row)
Next

MiDataAdapter.Update(custDS, tabla)
conexion.Close()
On Error GoTo 0
Exit Sub
error1:
MsgBox(Err.Description)
End Sub

Friend Function NombresColumnas(ByVal dbdataset As DataSet, ByVal
nombretabla As String) As String()
Dim columna As Data.DataColumn
Dim i, j As Integer
Dim nomCol() As String
'
j = dbdataset.Tables(0).Columns.Count - 1
ReDim nomCol(j)
For i = 0 To j
&nbs p; columna = dbdataset.Tables(0).Columns(i)
&nbs p; nomCol(i) = columna.ColumnName
Next
Return nomCol
End Function