RS.FIELDS("ZF").VALUE=RS.FIELDS("KM1").VALUE+RS.FIELDS("KM2").VALUE这句改成这样试试:
if not isnull(rs.fields("km2").value) then
    rs.fields("zf").value=cdbl(text1.text) + rs.fields("km2").value
else
    rs.fields(zf").value=cdbl(text1.text)
end if