كيف اضيف نوع المستند

Private Sub btnpSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpSave.Click

		Select Case (paytype.Text)
			Case "Cash"
				Dim cmd_insert As New SqlCommand("insert into PAYMENT(Pay_No,Pay_Date,Pay_Amount,Pay_Type,Pay_Descripshen,Customer_No) values(@pay_no,@pay_da,@pay_am,@Pay_type,@pay_desc,@cust_no)", SqlConnection1)
				'Pay_Type,@Pay_type,
				cmd_insert.Parameters.Add("@pay_no", System.Convert.ToInt32(txtpno.Text))
				cmd_insert.Parameters.Add("@pay_da", System.Convert.ToDateTime(txtpDate.Text))
				cmd_insert.Parameters.Add("@pay_am", System.Convert.ToInt32(txtAmount.Text))
				cmd_insert.Parameters.Add("@pay_type", System.Convert.ToString(paytype.Text))
				cmd_insert.Parameters.Add("@pay_desc", System.Convert.ToString(txtDesc.Text))
				cmd_insert.Parameters.Add("@cust_no", System.Convert.ToInt32(txtCNO.Text))			   cmd_insert.Connection.Open()
				cmd_insert.ExecuteNonQuery()
				cmd_insert.Connection.Close()
			Case "Check"
				Dim cmd_insert As New SqlCommand("insert into PAYMENT(Pay_No,Pay_Date,Pay_Amount,Pay_Type,Pay_Descripshen,Customer_No) values(@pay_no,@pay_da,@pay_am,@Pay_type,@pay_desc,@cust_no)", SqlConnection1)
				cmd_insert.Parameters.Add("@pay_no", System.Convert.ToInt32(txtpno.Text))
				cmd_insert.Parameters.Add("@pay_da", System.Convert.ToDateTime(txtpDate.Text))
				cmd_insert.Parameters.Add("@pay_am", System.Convert.ToInt32(txtAmount.Text))
				cmd_insert.Parameters.Add("@pay_type", System.Convert.ToString(paytype.Text))
				cmd_insert.Parameters.Add("@pay_desc", System.Convert.ToString(txtDesc.Text))
				cmd_insert.Parameters.Add("@cust_no", System.Convert.ToInt32(txtCNO.Text))
				cmd_insert.Connection.Open()
				cmd_insert.ExecuteNonQuery()
				cmd_insert.Connection.Close()
				'/////////////////////////////////////////////////////////////////////////////////////////////////////
				Dim cmd_insert3 As New SqlCommand("insert into DETAILCHECK(Check_No,Bank_Name,Date_Maturity,Maturity_Status,Pay_No) values(@check_no,@bank,@d_m,@m_s,@pay_no)", SqlConnection1)   '|																		 |
				cmd_insert3.Parameters.Add("@check_no", System.Convert.ToInt32(txtCheckNo.Text))																	  '|																		 |	
				cmd_insert3.Parameters.Add("@bank", System.Convert.ToString(txtBankName.Text))																	   '|																		 |
				cmd_insert3.Parameters.Add("@d_m", System.Convert.ToDateTime(txtDateMaturity.Text))
				cmd_insert3.Parameters.Add("@m_s", System.Convert.ToString(status.Text))
				cmd_insert3.Parameters.Add("@pay_no", System.Convert.ToInt32(txtpno.Text))
				cmd_insert3.Connection.Open()																														'|																		 |
				cmd_insert3.ExecuteNonQuery()																														'|																		 |   
				cmd_insert3.Connection.Close()
				'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
				Dim cmd_insert4 As New SqlCommand("insert into ACCUNTCUSTOMER(Customer_No,Debit,Credit,Balance,DocumentOfDate,DocumentOfNo) values(@cust_no,@debit,@credit,@balance,@d_date,@d_no)", SqlConnection1)   '|																		 |
				cmd_insert4.Parameters.Add("@cust_no", System.Convert.ToInt32(txtCNO.Text))																	  '|																		 |	
				cmd_insert4.Parameters.Add("@debit", System.Convert.ToInt32(0))																	   '|																		 |
				cmd_insert4.Parameters.Add("@credit", System.Convert.ToInt32(txtAmount.Text))
				cmd_insert4.Parameters.Add("@balance", System.Convert.ToInt32(0))
				cmd_insert4.Parameters.Add("@d_date", System.Convert.ToDateTime(txtpDate.Text))
				cmd_insert4.Parameters.Add("@d_no", System.Convert.ToInt32(txtpno.Text))
				cmd_insert4.Connection.Open()																														'|																		 |
				cmd_insert4.ExecuteNonQuery()																														'|																		 |   
				cmd_insert4.Connection.Close()

		End Select
		MsgBox("save the payment")

	End Sub

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

ولكن عند الحفظ في جدول الـ ACCUNTCUSTOMER لدي حقل اسمه DocumentOfType اريد في هذا الحقل يتم تسجيل الكلمة التالية"PayMent"

كيف يتم ذلك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

قاعدة البيانات SQL SERVER 2000

وجزاكم الله خيرا