Salve ragazzi,
ho la necessità di inserire dei valori in un database e aggiornare un datagrid:

Codice PHP:
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 
Ho notato che una volta premuto il pulsante ed eseguita la query, il dataview si aggiorna inserendo il nuovo record ma nel db il record non viene salvato!!

Aiuto!