请教后期绑定问题

hustlei

Module Module1
    Dim AcadApp As Object
    Dim AcadDoc As Object
    Dim gridLayer As Object
    Sub Main()
        ConnectToAcad()
    End Sub
    Sub ConnectToAcad()
        AcadApp = CreateObject("AutoCAD.Application")
        AcadApp.Visible = True
        AcadDoc = AcadApp.ActiveDocument
        gridLayer = AcadDoc.Layers.Add("网格")
        AcadDoc.ActiveLayer.color = 5
        AcadDoc.ActiveLayer = gridLayer        ''''这一句有问题
    End Sub
End Module

前边的都运行成功了   就那一句出错，不知道是那儿写错了
提示的出错原因是找不到成员
请问那一位大侠知道原因 谢谢

hustlei

没有人知道么5555