Bu programda TckimlikNo suna göre mükerrer kayıt olayını yapamadım,yardımcı olabilirmisiniz ?

'KAYDET

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 If Me.TextBox1.Text = "" Then

 MsgBox("Lütfen TCKimlikNo Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")

 Else

 

 Dim Sql As New String("INSERT INTO Kayitlar (TckimlikNo,AdiSoyadi,BabaAdi,Ogrencino,DogumYeri,Dogumtarihi,Aciklama) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}')")

 Sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text)

 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")

 Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)

 Dim sonuc As Integer

 baglanti.Open()

 sonuc = komutnesnesi.ExecuteNonQuery()

 If sonuc = 1 Then

 MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")

 End If

 Listele("SELECT * FROM Kayitlar'")

 baglanti.Close()

 Temizle()

 

 End If

 

 Me.ComboBox1.Text = ""

 End Sub