加这个判断出问题?
If dr.IsNull("变动类型") Or dr.IsNull("调入单位") Or dr.IsNull("姓名") Or dr.IsNull("身份证号") Or dr.IsNull("供给性质") Or dr.IsNull("变动原因") Or dr.IsNull("工资基数") Or dr.IsNull("起始月份") Or dr.Isnull("结束月份") Or dr.IsNull("备注") Then
你可以单独弹出各个值,看是否满足条件。如代码 msgbox(dr.IsNull("变动类型"))