AO+VB求助

<P>哪位高手帮一下忙吧，我在VB中要想利用AO，是应该添加MapControl吧，我在其中写了一段代码，如下：</P>
<P>Private Sub Form_Load()<br>Dim pWorkspaceFactory As IWorkspaceFactory<br>Dim pWorkspace As IFeatureWorkspace<br>Dim pFClass As IFeatureClass<br>Dim pLayer As IFeatureLayer<br>Set pWorkspaceFactory = New ShapefileWorkspaceFactory<br>'获取目录<br>Set pWorkspace = pWorkspaceFactory.OpenFromFile("D:\data\", 0)<br>'获取shapefile名<br>Set pFClass = pWorkspace.OpenFeatureClass("drainage")<br>Set pLayer = New FeatureLayer<br>Set pLayer.FeatureClass = pFClass<br>MapControl1.AddLayer pLayer<br>MapControl1.Refresh<br></P>
<P>End Sub</P>
<P>我是想加入一幅.SHP格式的底图，他说我Dim pWorkspaceFactory As IWorkspaceFactory这句定义错误，哪位大哥帮帮忙阿，谢谢！补充一句，要用ArcSDE调用的话，怎么写呢<br></P>

<P>在VB窗口中选择工程菜单，选择引用，在弹出的对话框中把“Esri ArcMap Object Library ”和“Esri Object Library” 两项选上．这样，在VB的编译环境中才识别IWorkspaceFactory这中数据类型．</P>
<P>大家都是新手啊！</P>
<P>我的QQ25573989</P>

<P>谢谢啊</P>