Ooops..try this

cmd.CommandText = "UPDATE orpay SET depdate='" & depdate1 & "' WHERE tag=1";