怎样转化成MapGis数据？

<P>我先把arcInfo 和mapGis数据存放在*.mdb中，用vb怎么实现把mdb中的数据输出为mapGis数据。</P>
<P>Public Sub MapGisFile(ByRef pFeatureClass As esriCore.IFeatureClass)
 On Error Resume Next
    Dim pFeatureCursor As IFeatureCursor
    Dim FeatureType As Integer
    Dim pntAi As New PntArea            'mapgis工作区
    Dim linAi As New LinArea
    Dim regAi As New RegArea
      FeatureType = pFeatureClass.ShapeType
    Set pFeatureCursor = pFeatureClass.Search(Nothing, False)
    If pFeatureCursor Is Nothing Then
        MsgBox "创建失败"
    Else
    
       Select Case FeatureType
             Case 1   'esriGeometryMultipoint
                 Set pntAi = NewPntArea(pFeatureCursor)
                 pntAi.SaveAs
                 Set pntAi = Nothing
             Case 3 'esriGeometryPolyline
                 Set linAi = NewLinArea(pFeatureCursor)
                  linAi.SaveAs
                  Set linAi = Nothing
             Case 4 'esriGeometryPolygon
                 Set regAi = NewRegArea(pFeatureCursor)
                 regAi.SaveAs
                 Set linAi = Nothing
        End Select
        
    End If</P>
<P>象这样行吗？</P>
<P>在线等待 QQ:80430887 </P>