Ciao a tutti,
ho un grosso problema con questa routine che mi serve per aggiungere un nuovo utente in un DB MySQL.
Il problema è grosso nel senso che una volta inviato il Form vengono aggiunti 2 record invece che 1. Cioè il record viene sdoppiato e non capisco per quale motivo visto che non effettuo strane operazioni.
Mi sapete dire come posso correggere il problema?
GRAZIE

Sub Add_Confirm(Sender As Object, E As EventArgs)

'recupero dati panel1 per aggiunta nuovo utente
Dim pNome, pCat, pCod, pScad, pData1, pData2, pTel As String
pNome = TextBox1.Text
pCat = TextBox2.Text
pCod = TextBox3.Text
pScad = TextBox4.Text
pData1 = TextBox5.Text
pData2 = TextBox6.Text
pTel = TextBox7.Text

Dim gg, mm, aa, All As String
gg = day(pScad)
mm = month(pScad)
aa = year(pScad)
All = aa & "-" & mm & "-" & gg
pScad = All.ToString


Dim Insert As String = "INSERT INTO Quiz (Nome, Cat, Cod, Scad_FR, Data_Ultimo, Data_Pren, Tel) VALUES ('" & pNome & "', '" & pCat & "', '" & pCod & "', '" & pScad & "', '" & pData1 & "', '" & pData2 & "', '" & pTel & "')"

Dim Con As New OdbcConnection(ConnectionString)
Dim Cmd As New OdbcCommand(Insert, Con)

Try
Con.Open()
Cmd.ExecuteNonQuery()

Catch ex as Exception
Message.Text = "Si verificato un errore. Controlla che i dati inseriti siano corretti."

Finally
Con.Close()

End Try


DataGrid1.CurrentPageIndex = 0
DataGrid1.EditItemIndex = -1
BindGrid()

End Sub