vb连接cad错误为什么？

xxxtttxxx

新问题：

用这段代码连接cad2006没有问题，在大部分cad2004中问题也不大，

但是我有碰到几台电脑的cad2004无法连接上。

请问是程序的问题？

还是cad2004没有安装完整？

还是cad2004中的某些dll没有注册？

望高手指点！

----------------------------------以下是原来的问题。

为免开新帖子，就在这里发了。

以前用下面一段连接cad从来没有任何问题

不知道为什么，今天运行的时候显示：  编译错误   必选参数

错误指到了两句红色的的语句。

为什么啊？

    On Error Resume Next
    Err.Clear
    Set Acad = GetObject(, "AutoCAD.Application")
   
    If Err Then
        Err.Clear
        Set Acad = CreateObject(, "AutoCAD.Application")
        If Err Then
            Err.Clear
            MsgBox "找不到AutoCAD程序！"
            Exit Sub
        End If
    End If

jkbanana

Set Acad = CreateObject(, "AutoCAD.Application")

是不是应改为

Set Acad = CreateObject("AutoCAD.Application")

xxxtttxxx

楼上纠正了偶的一个错误，谢谢！

问题已经解决，不小心导入一个模块，这个模块里面有一个api声明是getobject

xxxtttxxx

新问题：

用这段代码连接cad2006没有问题，在大部分cad2004中问题也不大，

但是我有碰到几台电脑的cad2004无法连接上。

请问是程序的问题？

还是cad2004没有安装完整？

还是cad2004中的某些dll没有注册？

望高手指点！