Kayıt Ekleme Sırasında Hata

Merhabalar ;



Butona bastığımda kaydetmeye çalışıyor fakat ekran budur.
Şöyle bir hata alıyorum varmı yardımcı olabilicek ?

Bu arada kodlar da bu şekilde ;

" Dim komut As New OleDbCommand
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & yol & "\\123.mdb")
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
komut.CommandText = ("insert into kayit(adi,soyadi,cep,cinsiyet,tarih,mail) Values(’" + AdiTextBox.Text & "’,’" + SoyadiTextBox.Text & "’,’" + CepTextBox.Text & "’,’" + CinsiyetTextBox.Text & "’,’" + TarihTextBox.Text & "’,’" + MailTextBox.Text & "’)")
komut.ExecuteNonQuery()
baglan.Close()"

bu ölçüt hatası , alanlarınızdaki
sayıları : " + CepTextBox.Text & " (tek tırnaksız)
metinleri : ’" + CepTextBox.Text & "’ (tek tırnaklı) şekilde yazmalısın
misal :cep telefonu alanı : " + CepTextBox.Text & " olmalı

Örneğinizi ekleyiniz...

Hala aynı hatayı alıyorum.
Hatta çözer mi acaba diyerek veritabanındaki tüm tabloları metin olarak güncelledim.

örneğiniz VS2012 bende 2010 olduğu için bakamıyorum....

2010 olarak eklerseniz yardımcı olurum...

Eğer tüm alanlar metin ise aşağıdaki çözümü uygulamanıza ekleyin...

komut.CommandText = ("insert into kayit(adi,soyadi,cep,cinsiyet,tarih,mail) Values('" & AdiTextBox.Text & "','" & SoyadiTextBox.Text & "','" & CepTextBox.Text & "','" & CinsiyetTextBox.Text & "','" & TarihTextBox.Text & "','" & MailTextBox.Text & "')")

Hala aynı hata alıyorum hocam.