arkadaşlar kayıt eklemek istiyorum ama olmuyor.Yazdığım Kodları calıştırdığımda kaydet butonuna basıldığında kaydetmeden ve msgbox mesajı vermeden kapanıyor.neden olabilir acaba kodalr aşağıda ;

Dim con As New OleDbConnection
Dim com As New OleDbCommand
con.ConnectionString = ("Provider=Microsoft.jet.oledb.4.0;data source = C:\deneme.mdb")
con.Open()
com.Connection = con
com.CommandType = CommandType.Text
com.CommandText = " Insert Into Tablo1(Ad,Soyad,Telefon,Adres)values('" + TextBox1.Text + "', '" + TextBox2.Text + "', '" + TextBox3.Text + "', '" + TextBox4.Text + "', '"
com.ExecuteNonQuery()
con.Close()
MsgBox("kayıt alınmıstır")
__________________