salve atutti
dato il seguente codice

devo cancellare e reinserire nel mio database avendo come parametro un datatable
il problema è che sebbene non restituisce nessun errore, la funzione non mi aggiorna il datatable
cosa sbaglio?

per capire meglio il codcie
ho usato un dataset tipizzato chiamato DS
ho una tabella chiamata anagrafiche
ho controllato il parametro, è pieno di record

codice:
 Public Function InsAnagrafiche(ByVal DT As DataTable, RcodDitta As Integer) As String
        Dim DTdata As New DS.AnagraficheDataTable
        Dim objDA As New DSTableAdapters.AnagraficheTableAdapter


        'delete data from table------
        Dim filterExp As String = " RcodDitta=" & RcodDitta
        Dim sortExp As String = "RcodDitta"
        Dim drarray() As DataRow
        Dim i As Integer
        drarray = DTdata.Select(filterExp, sortExp, DataViewRowState.CurrentRows)
        For i = 0 To (drarray.Length - 1)
            objDA.Delete(DTdata(i)("CodAnagrafica"))
        Next


        objDA.Fill(DTdata)

        Dim objDbCommandIns As New OleDbCommand()
        objDbCommandIns.CommandText = "INSERT INTO `Anagrafiche` (`Cognome`, `Nominativo`, `Descrizione`, `Descrizione2`, `RigaNominativo`, `RCod_Documento`, `Codice_Documento`, `Indirizzo`, `CAP`, `Provincia`, `Citta`, `Email`, `Cellulare`, `Telefono`, `Sconto`, `NoteAnagrafica`, `RCodNazionalita`, `CittaNascita`, `DataNascita`, `Sesso`, `CapNascita`, `Fido`, `ProvinciaNascita`, `CodFiscale`, `PersonaFisica`, `EsenteIVa`, `IvaPredefinita`, `Listino`, `Cliente`, `Fornitore`, `Trasportatore`, `Personale`, `Mediatore`, `Agente`, `Vettore`, `Username`, `Password`, `Partiva`,RcodDitta) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, " & RcodDitta & ")"
        objDbCommandIns.Connection = objDA.Connection

        DTdata.Merge(DT)
        objDA.Update(DTdata)

        Return 1
    End Function