مشكلة في كود الحفظ - نسخة قابلة للطباعة

كود :
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 & "\SFA.mdb"

            Dim conn As New OleDbConnection(ConStr)

            SavInto.Connection = conn

            SavInto.CommandType = CommandType.Text

            SavInto.CommandText = "insert into playerdata(name,birthdate,club Membership,Membership type,federation Membership,qualification,job,home phone,cell phone,address,healthy Data,From,slevel)" & _

            "values ('" & TextBox1.Text & "','" & TextBox13.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox4.Text & "') "

            conn.Open()

            SavInto.ExecuteNonQuery()

            conn.Close()

            MsgBox("تمت عملية الإضافة بنجاح والحفظ في قاعدة البيانات")

            Me.Close()

            frm1.Show()

        Catch ex As Exception

            Exit Sub

        End Try

    End Sub