Per visualizzare la stringa di Insert nel da.update come si fà? cosa devo stampare?

ho questo problema e non riesco a capire perchè me lo dà ...l'errore ch emi segnala è alla riga da.upd... e è insert errato
codice:
        Dim cn As New OleDb.OleDbConnection(strCnString)
        Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Contatti", cn)
        Dim ds As New DataSet
        da.Fill(ds, "Contatti")
        Dim NuovaRiga As DataRow = ds.Tables("Contatti").NewRow
        NuovaRiga("Azienda") = txtazienda.Text
        NuovaRiga("Nome") = txtnome.Text
        NuovaRiga("Cognome") = txtcognome.Text
        NuovaRiga("Indirizzo") = txtIndirizzo.Text
        NuovaRiga("Citta") = txtcitta.Text
        NuovaRiga("Provincia") = txtProv.Text
        NuovaRiga("CAP") = txtcap.Text
        NuovaRiga("Tel") = txttel.Text
        NuovaRiga("Fax") = txtFax.Text
        NuovaRiga("Cell") = txtcell.Text
        NuovaRiga("Mail") = txtmail.Text
        NuovaRiga("Note") = Txtnote.Text
        ds.Tables("Contatti").Rows.Add(NuovaRiga)
        Dim Pippo As New OleDb.OleDbCommandBuilder(da)
        da.Update(ds, "Contatti")
        lblmsg.Text = "Utente inserito con successo"
grazie