Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
   
   
   
          Dim baglanti As New OleDbConnection("Provider=Microsoft.Ace.Oledb.12.0;Data source=Puan Kayıtları1.accdb") 
          baglanti.Open() 
          Dim guncelle As New OleDbCommand() 
          Try 
   
              guncelle = baglanti.CreateCommand() 
              guncelle.CommandText = "update Puanlar set Isim=@Isim,Esini_Bul=@Esini_Bul,Sudoku=@Sudoku,Saatler=@Saatler,Evi_topla=@Evi_topla,Sayilar=@Sayilar,Yapboz=@Yapboz,Ifadelerim_yuzler=@Ifadelerim_yuzler,Ifadelerim_meslekler=@Ifadelerim_meslekler,Ifadelerim_spor=@Ifadelerim_spor where Isim= ’" + Label3.Text + "‘" 
              guncelle.Parameters.Add("@Isim", Label3.Text) 
              guncelle.Parameters.Add("@Esini_Bul", Label5.Text) 
              guncelle.Parameters.Add("@Sudoku", Label7.Text) 
              guncelle.Parameters.Add("@Saatler", Label8.Text) 
              guncelle.Parameters.Add("@Evi_topla", Label4.Text) 
              guncelle.Parameters.Add("@Sayilar", Label9.Text) 
              guncelle.Parameters.Add("@Yapboz", Label10.Text) 
              guncelle.Parameters.Add("@Ifadelerim_yuzler", Label11.Text) 
              guncelle.Parameters.Add("@Ifadelerim_meslekler", Label12.Text) 
              guncelle.Parameters.Add("@Ifadelerim_spor", Label13.Text) 
   
   
   
              If (guncelle.ExecuteNonQuery() = 1) Then 
                  MessageBox.Show("Kayıt güncelendi") 
              End If 
          Catch ex As Exception 
   
              MessageBox.Show("Hata" & ex.ToString()) 
          End Try 
          baglanti.Close() 
   
   
   
   
   
   
      End Sub