' ' update the lease assistance history ' dim rs as adodb.recordset set rs = new adodb.recordset rs.open "test", CurrentProject.Connection, adOpenKeyset, adLockOptimistic rs.AddNew rs!Code=cboOrgCode.value rs!Per_Count = txtPerCount.value rs!Name=txtName.value rs!When = now rs!What = "D" rs.Cutput rs.Close set rs=nothing