Code:
Dim updatestr As String
updatestr = "Update tbl_purchaseheader "
updatestr = updatestr & "set rrponumber= " & shortifblanktonull(txtponumber.text) & ", "
updatestr = updatestr & "rrnumber = " & shortifblanktonull(txtrrnumber.text) & ", "
updatestr = updatestr & "rrdate = " & shortifblanktonull(txtrrdate.Value) & ", "
updatestr = updatestr & "invoicenum = " & shortifblanktonull(txtinvoicenumber.text) & ", "
updatestr = updatestr & "invoicedate = " & shortifblanktonull(txtinvoicedate.Value) & ", "
updatestr = updatestr & "DRnumber = " & shortifblanktonull(txtdeliverynumber.text) & ", "
updatestr = updatestr & "DRdate = " & shortifblanktonull(txtdeliverydate.Value) & ", "
updatestr = updatestr & "rrlocationid = " & shortifblanktonull(txtlocationid.text) & ", "
updatestr = updatestr & "rrsupplierid = " & shortifblanktonull(txtsupplierid.text) & ", "
updatestr = updatestr & "rrtermsid = " & shortifblanktonull(txttermsid.text) & ", "
updatestr = updatestr & "rrremarks = " & shortifblanktonull(txtremarks.text) & ", "
updatestr = updatestr & "rrpostbyid = " & CurUserID & ", "
updatestr = updatestr & "rrpostdate = " & shortifblanktonull(Now()) & ", "
updatestr = updatestr & "isposted = 0 "
updatestr = updatestr & "where rrnumber=" & txtrrnumber.text
cn.Execute updatestr << --- I AM GETTING ERROR ON THIS LINE UPON DEBUG. It says I have a syntax error.