مشكلة حفظ البيانات في قاعدة البيانات

السلام عليكم

حدثت هذه المشكلة معي عدة مرات ولم اعرف السبب حيث ان الاكواد صحيحة تقريبا وكذلك طريقة الربط ولكن البيانات لاتصل الى قاعدة البيانات ! رغم ان التنفيذ يبدو صحيحا

وهذه الاكواد التي وضعتها ويوجد ايضا مرفق للبرنامج

ارجو المساعدة

حدث تحميل النموذج
Try

            Me.TbCityTableAdapter.Fill(Me.DataSet.tbCity)
            Me.TbCountryTableAdapter.Fill(Me.DataSet.tbCountry)
            Me.TbkabyleTableAdapter.Fill(Me.DataSet.tbkabyle)

            Cm = CType(Me.TbkabyleBindingSource.CurrencyManager, CurrencyManager)
            Cm.Refresh()

Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
End Try

حدث الاضافة
Try

            Cm.AddNew()
            Me.TextBox1.Focus()
            Cmd(False, True, False, False, False, True)

Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
End Try

حدث التخزين
Try

            Cm.EndCurrentEdit()
            Me.DataSet.AcceptChanges()
            Me.TbkabyleTableAdapter.Update(Me.DataSet.tbkabyle)

            MessageBox.Show("تم حفظ البيانات بنجاح", Me.Text.ToString, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Cm.Refresh()
            Cmd(True, False, True, False, False, False)

Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
End Try

almagrahi.rar