hello i'm italian and i don't speack and write very well english
i have one problem with a code can you help me

form code
Code:
Private Sub cmdAggiornaEsci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAggiornaEsci.Click
        Dim AggControl As UserModificaViaggio.UserModificaViaggio
        Dim ctrl As Control
        iViaggio = 0
        For Each ctrl In Me.Controls

            If TypeOf ctrl Is UserModificaViaggio.UserModificaViaggio Then
                AggControl = ctrl
                AggControl.AggiornaRecord(AggControl, AggControl.labelIDVIAGGIO0.Text, AggControl)
            End If
        Next
        iViaggio = 0
    End Sub
usercontrol code

Code:
Public Sub AggiornaRecord(ByRef ctrlAdd As UserModificaViaggio, ByRef IDVIAGGIO As Integer, ByRef CheckDestinazione As Control)
        ConnParcoMacchine.ConnectionString = ParcoMacchineConnString
        sql = "SELECT * FROM VIAGGI;"
        Try
            ConnParcoMacchine.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        daParcoMacchine.SelectCommand = New OleDbCommand(sql, ConnParcoMacchine)
        daParcoMacchine.Fill(dsParcoMacchine, "VIAGGI")
        ConnParcoMacchine.Close()

        Dim cmdBuilderPosta As New OleDb.OleDbCommandBuilder(daParcoMacchine)
        cmdBuilderPosta.QuotePrefix = "["
        cmdBuilderPosta.QuoteSuffix = "]"

        daParcoMacchine.InsertCommand = cmdBuilderPosta.GetInsertCommand
        daParcoMacchine.UpdateCommand = cmdBuilderPosta.GetUpdateCommand

        Dim strFilter As String
        strFilter = "[IDVIAGGIO]=" & IDVIAGGIO
        Dim drPosta() As DataRow
        drPosta = dsParcoMacchine.Tables("VIAGGI").Select(strFilter)
        Dim myDr2 As DataRow
        Try

            For Each myDr2 In drPosta
                myDr2.Item("TARGA") = ctrlAdd.ComboBoxTarga1.Text
                myDr2.Item("KM ATTUALI") = ctrlAdd.TextBoxKMArrivo1.Text
                myDr2.Item("ORA PARTENZA") = ctrlAdd.TextBoxOraPartenza1.Text
                myDr2.Item("ORA ARRIVO") = ctrlAdd.TextBoxOraArrivo1.Text
                myDr2.Item("DATA") = ctrlAdd.TextBoxData1.Text
                myDr2.Item("DESTINAZIONE1") = ctrlAdd.ComboBoxDestinazione1.Text
                'myDr2.Item("DESTINAZIONE2") = ctrlAdd.Controls("Destinazione1").Text
                'myDr2.Item("DESTINAZIONE3") = ctrlAdd.Controls("Destinazione2").Text
                'myDr2.Item("DESTINAZIONE4") = ctrlAdd.Controls("Destinazione3").Text
                NumeroColonne()
                Dim i As Integer
                Dim sNomeCampo As String
                Dim sNomeControllo As String
                For i = 1 To iNumeroColonne - 12
                    sNomeCampo = "DESTINAZIONE" & (i + 1)
                    sNomeControllo = "Destinazione" & i
                    myDr2.Item(sNomeCampo) = ctrlAdd.Controls(sNomeControllo).Text
                Next
            Next
            daParcoMacchine.Update(dsParcoMacchine, "VIAGGI")
        Catch ex As Exception
            MsgBox("errore", MsgBoxStyle.Critical, "errore")
        End Try
        

        dsParcoMacchine.Clear()
the part of code with the f For i = 1 To iNumeroColonne - 12
don't update the table could you help me thanks