The line of the error is at "adptr.UpdateCommand.ExecuteNonQuery()" but I don't see anything wrong with the CommandText (UPDATE code):
Dim sql As String = "UPDATE NTIdb " & _
" SET ID='" & idT.Text() & "'" & _
", Status='" & ComboBox1.SelectedItem() & "'" & _
", DateDeliver='" & DateTimePicker1.Value() & "'" & _
", Client='" & clientT.Text() & "'" & _
", POrder='" & orderT.Text() & "'" & _
", StoreCode='" & storeCT.Text() & "'" & _
", StoreType='" & storeTT.Text() & "'" & _
", ProdUsage='" & prodUT.Text() & "'" & _
", ProdCategory='" & prodCT.Text() & "'" & _
", Brand='" & brandT.Text() & "'" & _
", Descrption='" & descT.Text() & "'" & _
", Quantity='" & NumericUpDown1.Value() & "'" & _
", MainUnitSerial='" & mainUST.Text() & "'" & _
", HDD1='" & hdd1T.Text() & "'" & _
", HDD2='" & hdd2T.Text() & "'" & _
", OpticalDrive='" & odT.Text() & "'" & _
", Monitor='" & monitorT.Text() & "'" & _
", Keyboard='" & keyboardT.Text() & "'" & _
", NetAdaptor='" & netAdaptorT.Text() & "'" & _
", ProdKey='" & prodkeyT.Text() & "'" & _
", WTYEnt='" & wtyET.Text() & "'" & _
", AccExec='" & accexecT.Text() & "'" & _
", SalesOrder='" & sOrderT.Text() & "'" & _
", SalesInv='" & sInvT.Text() & "'" & _
", DReceipt='" & dRecT.Text() & "'" & _
", ReceibedBy='" & receivedT.Text() & "'" & _
", Waybill='" & waybillT.Text() & "'" & _
", DueDate='" & DateTimePicker2.Value() & "'" & _
", WHERE ID=" & TextBox1.Tag() & ""
Try
cnn.Open()
adptr.UpdateCommand = cnn.CreateCommand
adptr.UpdateCommand.CommandText = sql
adptr.UpdateCommand.ExecuteNonQuery()
MsgBox("Data updated!")
adptr.Dispose()
cnn.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try