[mostafa yaghmour]

تواجهني مشكلة في كود الحفظ في نموذج الإضافة حيث أنه كل ما أضغط عليه لا يفعل شيئاًَ فلا يحقظ المدخلات ولا حتى يعطي رسائل خطأ ولا اعرف أين المشكلة
فهل من مساعدة , وشكراً

مرفق الكود الذى أعمل به :-

كود :

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