Dim myConnection As SqlConnection
            
            Dim sqlCmd As SqlCommand

            myConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Utenti.mdf;Integrated Security=True;User Instance=True")
            myConnection.Open()
          
            sqlCmd = myConnection.CreateCommand

            If myConnection IsNot Nothing Then
                'mySqlCommand = New SqlCommand("Insert into Persona (Username,Password,Nome,Cognome,DataNascita,Telefono) VALUES ('TextBox5.Text' ,'TextBox6.Text','TextBox1.Text','TextBox2.Text'," + TextBox3.Text + "," + TextBox4.Text + ")", cn)

                SqlCmd.CommandText = "Insert into Persona (Username,Password,Nome,Cognome,DataNascita,Telefono) VALUES (@Username,@Password,@Nome,@Cognome,@DataNascita,@Telefono)"

                SqlCmd.Parameters.AddWithValue("@Username", TextBox5.Text)
                SqlCmd.Parameters.AddWithValue("@Password", TextBox6.Text)
                SqlCmd.Parameters.AddWithValue("@Nome", TextBox1.Text)
                sqlCmd.Parameters.AddWithValue("@Cognome", TextBox2.Text)
                sqlCmd.Parameters.AddWithValue("@DataNascita", TextBox3.Text)
                sqlCmd.Parameters.AddWithValue("@Telefono", TextBox4.Text)

           'sqlCmd.ExecuteNonQuery()
           myConnection.Close()