急求msgbox问题

tz-chf

dim var as ...(忘记了怎么写)

var=dsum("字段","表")

if isnull(var) then

   msgbox "出毛病了"

else

   me.text1=var

   if var<某值 then

      msgbox "超过上限"

   end if

end if