Dim UPDATEcommand As New OleDbCommand
        Dim pIDconcorrente As New OleDbParameter
        pIDconcorrente.ParameterName = "@IDconcorrente"
        pIDconcorrente.OleDbType = OleDbType.Numeric
        pIDconcorrente.SourceColumn = "IDconcorrente"
        Dim pTocco As New OleDbParameter
        pTocco.ParameterName = "@Tocco"
        pTocco.OleDbType = OleDbType.Numeric
        pTocco.SourceColumn = "Tocco"
        Dim pTempo As New OleDbParameter
        pTempo.ParameterName = "@Tempo"
        pTempo.OleDbType = OleDbType.Numeric
        pTempo.SourceColumn = "Tempo"
        Dim pUscita As New OleDbParameter
        pUscita.ParameterName = "@Uscita"
        pUscita.OleDbType = OleDbType.Numeric
        pUscita.SourceColumn = "Uscita"
        Dim pSalto As New OleDbParameter
        pSalto.ParameterName = "@Salto"
        pSalto.OleDbType = OleDbType.Numeric
        pSalto.SourceColumn = "Salto"
        Dim pOrdPart As New OleDbParameter
        pOrdPart.ParameterName = "@OrdPart"
        pOrdPart.OleDbType = OleDbType.Numeric
        pOrdPart.SourceColumn = "OrdPart"
        UPDATEcommand.Parameters.Add(pIDconcorrente)
        UPDATEcommand.Parameters.Add(pTocco)
        UPDATEcommand.Parameters.Add(pTempo)
        UPDATEcommand.Parameters.Add(pUscita)
        UPDATEcommand.Parameters.Add(pSalto)
        UPDATEcommand.Parameters.Add(pOrdPart)

        UPDATEcommand.CommandText = "UPDATE Punteggio SET OrdPart=@OrdPart,Tocco=@Tocco,Salto=@Salto,  Uscita=@Uscita, Tempo=@Tempo,IDconcorrente=@IDconcorrente WHERE Manche=" & manche & " "
        UPDATEcommand.Connection = Connection
        theAdapt.UpdateCommand = UPDATEcommand