For i = 1 To 3
                If i = 1 Then


                    e.Values("data_email") = CDate(data_email.Text)
                    SqlDataSource1.InsertParameters.Add("data_email", TypeCode.DateTime)

                    .....e così via inserisco gli altri parametri....


                    SqlDataSource1.InsertCommand = "INSERT INTO [eventi] ([oggetto], [testo], [data_inizio],[data_email], [ripetizione], [idazienda], [privato], [utente], [data_ins], [cancellato]) VALUES (@oggetto, @testo, @data_inizio, @data_email, @ripetizione, @idazienda, @privato, @utente, @data_ins, @cancellato)"
                    
                Else

                    Dim data1b As DateTime = CDate(data_email.Text)
                    e.Values("data_email" & i) = CDate(data3.ToString())
                    
....aggiungo gli altri parametri....

                    Dim str = "INSERT INTO [eventi] ([oggetto], [testo], [data_inizio],[data_email], [ripetizione], [idazienda], [privato], [utente], [data_ins], [cancellato]) VALUES (@oggetto, @testo, @data_inizio, @data_email" & i & ", @ripetizione" & i & ", @idazienda, @privato" & i & ", @utente, @data_ins" & i & ", @cancellato)"
                  
end if
next