Private Sub salva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salva.Click
        Dim appbase As String = AppDomain.CurrentDomain.SetupInformation.ApplicationBase()
        Dim PercorsoDB As String = appbase & "autoscuola.mdb"

        'Stringa di Connessione
        Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & PercorsoDB
        Dim Cn As New OleDbConnection(ConnString)

        Try
            'APRE la connessione con il DB

            Cn.Open()

            Dim sql As String
            sql = "INSERT INTO Clienti(Nome, Cognome, DataN, Localita, Residenza, Via, Tel, Cell, fr_1, fr_2, fr_1_del, fr_2_del, fr_1_scade, fr_2_scade, bl_num, bl_quant, foto, cont) VALUES('" & Cognome.Text & "','" & Nome.Text & "','" & Datan.Text & "','" & Localita.Text & "','" & Residenza.Text & "','" & Via.Text & "','" & Tel.Text & "','" & Cell.Text & "','" & FR_1.Text & "','" & FR_2.Text & "','" & del_1.Text & "','" & del_2.Text & "','" & Scade_1.Text & "','" & Scade_2.Text & "','" & Bloc.Text & "','" & Quantita.Text & "','" & img.ImageLocation & "','" & Quantita.Text & "')"

            Dim cmd As New OleDbCommand
            cmd = New OleDbCommand(sql, Cn)

            cmd.ExecuteNonQuery()

        Catch
        End Try
        Cn.Close()
        'sql = "UPDATE Clienti SET Nome ='" & Cognome.Text & "', Cognome='" & Nome.Text & "', DataN ='" & Datan.Text & "',Localita ='" & Localita.Text & "', Residenza ='" & Residenza.Text & "', Via ='" & Via.Text & "', Tel ='" & Tel.Text & "' , Cell ='" & Cell.Text & "', fr_1 =" + FR_1.Text & ", fr_2= " & FR_2.Text & ", fr_1_del='" & del_1.Text & "', fr_2_del='" & del_2.Text & "', fr_1_scade='" & Scade_1.Text & "', fr_2_scade='" & Scade_2.Text & "', bl_num=" & Bloc.Text & ", bl_quant=" & Quantita.Text & ", foto='" & img.ImageLocation & "', cont=" & Quantita.Text & "WHERE Nome='" & Nome.Text & "' AND Cognome ='" & Cognome.Text & "'"


        'AGGIORNO IL DATAVIEW
        Me.ClientiTableAdapter.FillOrderByCognome(Me.AutoscuolaDataSet.Clienti)
       
    End Sub