Sub AggiornaDati()
        CONNESSIONE.CONNECT("Connessione.ConnectionServizi")
        Dim Aggiorna As String
        Aggiorna = "UPDATE nomeTabella SET nomeCampo1=?, nomeCampo2=?, nomeCampo3=? WHERE CampoChiavePrimaria=?"
        Dim CMD_AGG As New Odbc.OdbcCommand(Aggiorna, CONNESSIONE.ODBCCONNECT)
        With CMD_AGG.Parameters
            .Add("nomeCampo1", oleType.Int, 0, "nomeCampo1")
            .Add("nomeCampo2", oleType.Text, 50, "nomeCampo2")
            .Add("nomeCampo3", OleType.Text, 50, "nomeCampo3")
            .Add("CampoChiavePrimaria", Odbc.OdbcType.Int, 0, "ID").SourceVersion = DataRowVersion.Original
        End With
        Da.UpdateCommand = CMD_AGG
        Da.Update(Ds.Tables(0))
    End Sub