请教高手：cad2000版利用asi连接数据怎样改，请高手指点！！！

大庆铁人

其它略：
  (if (not (asi_objp SESSION)) 
    (if (not (setq SESSION (asi_connect "datasource"))) 
      (progn
        (alert "连接数据库服务器失败")
        (exit)
      )
    )
  )

大庆铁人

迫切需要高手指点，不胜感谢！！！

大庆铁人

斑竹：您好！
能否请您看一看上面的连接问题，因为我迫切想把r14软件移到２０００版本，而利用asi连接函数的变化不清楚，想请您指点一下！！