Public Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim valori As String = ""
        Dim ValoreDato As String = ""
        Dim indice As String = ""
        Dim rcoddato As String = ""
        Dim RcodCampagna As String = ""

        ValoreDato = "ValDatoxxx" & "" 'riga x ,colonna i
        indice = "Indicexxx" & "" 'prima colonna trovo l'indice
        rcoddato = "rcoddatoxxx"
        RcodCampagna = "RcodCampagnaxxx"

        valori = valori & rcoddato & ","
        valori = valori & "'" & ValoreDato & "',"
        valori = valori & "'" & indice & "',"
        valori = valori & "'" & RcodCampagna & "',"
        Label1.Text = valori    
End Sub