Dim drActivate As DataRow drActivate = DsLicense.tblLicense.Rows(0) drActivate.BeginEdit() drActivate("ActivationDate") = Today.Date 'Activation date drActivate("Activated") = "Yes" 'Application activated drActivate("Key") = UCase(vrFinalKey) drActivate.EndEdit() taLicense.Update(DsLicense.tblLicense)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)