Арифметической операции переполнение при

---

оператор строки ошибки
Dim clientobj как новый PowerConz.PCZ.TBL_CLIENTMASTER(0, txtcustomername.Текст, cbClienttype.SelectedText, "NA", txtcontactname.Текст, txtaddress.Текст, txtaddress1.Text, txtaddress2.Text, txtarea.Текст, txtcity.Текст, txtstate.Текст, txtpincode.Текст, txtemail.Text, txtwebsite.Текст, TXTPAN.Text, txtGST.Text, txtoffphoneno.Текст, txtmobile1.Текст, txtfax.Текст, теперь(), 0, г. Подключение)


Код конструктора:

Public Sub New(ByVal ICLIENTID As Integer, ByVal SCLIENTNAME As String, ByVal SCLIENTACTIVITYTYPE As String, ByVal SCATEGORY As String, ByVal SCLIENTSPOC As String, ByVal SADDRESSLINE1 As String, ByVal SADDRESSLINE2 As String, ByVal SLANDMARK As String, ByVal SAREANAME As String, ByVal SCITYNAME As String, ByVal SSTATENAME As String, ByVal IPINCODE As Integer, ByVal SCLIENTEMAIL As String, ByVal SWEBSITE As String, ByVal SCLIENTPAN As String, ByVal SCLIENTGST As String, ByVal SOFFICEPHONE As String, ByVal IMOBILENO As Integer, ByVal SFAXNO As String, ByVal DUPDATEDON As Date, ByVal IDELETESTATUS As Integer, ByVal SqlConn As System.Data.SqlClient.SqlConnection)
Me.I_ICLIENTID = ICLIENTID
Me.CLIENTNAME = SCLIENTNAME
Me.CLIENTACTIVITYTYPE = SCLIENTACTIVITYTYPE
Me.CATEGORY = SCATEGORY
Me.CLIENTSPOC = SCLIENTSPOC
Me.ADDRESSLINE1 = SADDRESSLINE1
Me.ADDRESSLINE2 = SADDRESSLINE2
Я.ориентир = клевета
Me.AREANAME = SAREANAME
Me.CITYNAME = SCITYNAME
Me.STATENAME = SSTATENAME
Me.PINCODE = IPINCODE
Me.CLIENTEMAIL = SCLIENTEMAIL
Me.WEBSITE = SWEBSITE
Me.CLIENTPAN = SCLIENTPAN
Me.CLIENTGST = SCLIENTGST
Me.OFFICEPHONE = SOFFICEPHONE
Me.MOBILENO = IMOBILENO
Я.ФАКСНО = СФАКСНО
Me.UPDATEDON = DUPDATEDON
Me.DELETESTATUS = IDELETESTATUS
Me.sqlconnection = sqlconn
Me.smessage = "новые ценности"
Конец Подводной Лодки

Что я уже пробовал:

Я пытаюсь сохранить передачу данных из пользовательской формы в класс ClientMaster

---