Text1.Text = a & Format(Right(rs.Fields("批次"), 4) + 1, "0000")，这句提示“类型不匹配”