نمايش Autocad در برنامه

[Shadi64]

سلام
من توسط برنامه Mapabject خواستم که يک فايل اتوکد با پسوند dwg را mapobject دمايش دهم


Dim dc As New DataConnection
' dc.Database = ReturnDataPath("usa")
dc.Database = ReturnDataPath("Scotland")
If Not dc.Connect Then End
Dim layer As MapLayer
Set layer = New MapLayer
'Set layer.GeoDataset = dc.FindGeoDataset("states")
Set layer.GeoDataset = dc.FindGeoDataset("A1.dwg")
layer.Symbol.Color = moPaleYellow
Map1.Layers.Add layer

ولي error ميدهد
خواهشمندم کمک کنيد!