新问题请教：完成同一数据库(accsee)中两表的提取相同字段，并求差值

问题：
    完成同一数据库(accsee)中两表的提取相同字段，并求差值
问题演示：
    set rs=server.createobject("adodb.recordset")
    rs.open "select distinct table1.Name, sum(table1.OBDZY) as A_OBDZY , sum(table2.OBDZY) as B_OBDZY from table1,table2",conn,1,1
    if A_OBDZY > B_OBDZY then
    <...>
    elseif  A_OBDZY < B_OBDZY then
    <...>
    elseif  A_OBDZY = B_OBDZY then
    <...>
    rs.close
    set rs=nothing

如上写法运行挂死，不知问题在那里!请教为感。