改为:
AddNew
              rs1.Fields(0) = Trim(rs.Fields(0)) &""
              rs1.Fields(1) = Trim(rs.Fields(1)) &""
              rs1.Fields(2) = Trim(rs.Fields(2)) &""
              rs1.Fields(3) = Trim(rs.Fields(3)) &""
              rs1.Update
当然还要注意其他字段是否也为不允许为空,如果是则必须赋值