مساعدة في اضافة سجل لقاعدة البيانات

السلام عليكم اخوتي  الاعزاء 

استعملت برنامج فيسيال بازيك ستوديو 2010 وقمت بعمل  فورم لاضافة البيانات لكن عند ملاء جميع البيانات والضغط على كلمة حفظ لا يتحرك للبرنامج ساكنا

 الرجاء التصحيح اذا كان هناك خطأ بهذا الكود فانا مبتدأ فالبرمجة بلغة الدوت نت

Imports System.Data

Imports System.Data.OleDb


Public Class addition



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

        Try

            Dim SavInto As New OleDb.OleDbCommand

            Dim ConStr As String = _

            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _

            Application.StartupPath & "\debila.mdb"

            Dim Conn As New OleDbConnection(ConStr)

            SavInto.Connection = Conn

            SavInto.CommandType = CommandType.Text

            SavInto.CommandText = "INSERT INTO indv(الإسم,اللقب,تاريخ الميلاد,مكان الميلاد,إبن,و,الإسم واللقب)" & "values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "') "

            Conn.Open()

            SavInto.ExecuteNonQuery()

            Conn.Close()

            MsgBox("تمت عملية الحفظ بنجاح")

        Catch ex As Exception

            Exit Sub

        End Try


        Dim mainform As New mainForm

        Me.Hide()

        mainform.Show()


    End Sub