لايريد التخزين في الداتابيس

بسم الله الرحمن الرحيم

اريد الحفظ فى الداتابيس كتبت له هذا الكود لكنه لايخزن لااعلم السبب

Try
Adp.Fill(DS, 
"account")


Dim DR As DataRow = DS.Tables("account").NewRow
DR(

"id") = Me.Txtid.Text
DR(

"account_id") = Me.Txtnewid.Text
DR(

"account_name") = Me.Txtnewname.Text
DR(

"account_parent") = Me.Txtparentid.Text
DR(

"account_type") = Me.Cmbaccount_type.Text
DR(

"account_sort") = Me.Cmbaccount_sort.Text
DR(

"currency") = Me.Cmbcurrency.Text
DR(

"depreciation_method") = Me.Cmbdepreciation_method.Text
DR(

"depreciation_amount") = Me.Txtdepreciation_amount.Text
DR(

"depreciation") = Me.Txtdepreciation.Text
DR(

"debit") = Me.Txtdebit.Text
DR(

"credit") = Me.Txtcredit.Text
DR(

"debitbalance") = Me.Txtbalance.Text 

DR(

"creditbalance") = Me.Txtcreditbalance.Text
DR(

"address") = Me.Txtaddress.Text
DR(

"email") = Me.Txtemail.Text
DR(

"webpage") = Me.Txtwebpage.Text
DR(

"phone") = Me.Txtphone.Text
DR(

"mobile") = Me.Txtmobile.Text
DR(

"post_box") = Me.Txtpost_box.Text
DR(

"fax") = Me.Txtfax.Text
DR(
 
"datex") = Me.DTPdatex.Text
DS.Tables(

"account").Rows.Add(DR)
CMB = 


New SqlCommandBuilder(Adp)
Adp.Update(DS)
MsgBox(

"تمت الاضافه 
بنجاح", 
MsgBoxStyle.Information, Application.ProductName)


Catch ex As Exception
MsgBox(ex.Message)


End Try

ويظهر الرساله التاليه

لااعرف كيف انسق الكود ، كيف ؟