如何在将dwg图转化为shp文件时把中文和数字也导入shp文件（MO＋VB）

<P>用下面的代码可以导入dwg文件，但是文字和数字都导不过去，而且如果原来的dwg文件有许多层的话都放到了同一层上（保存为一个shp文件）这样就无法对各个图层分别操作了，希望高手指点一下</P>
<P>Private Sub mnuImportFile_Click()
Dim dc As New MapObjects2.DataConnection
Dim lyr As New MapObjects2.MapLayer
Dim rs As New MapObjects2.Recordset
Dim name As String</P>
<P>On Error GoTo Merr:
  
    FrmTest.DlgOpenCad.Filter = "CAD Files(*.dwg)|*.dwg"
    FrmTest.DlgOpenCad.DefaultExt = ".dwg"
    FrmTest.DlgOpenCad.ShowOpen
    If Len(FrmTest.DlgOpenCad.FileName) = 0 Then Exit Sub
    dc.Database = "[CADLine]" ; CurDir
    If Not dc.Connect Then Exit Sub
    name = FrmTest.DlgOpenCad.FileTitle
    Set lyr.GeoDataset = dc.FindGeoDataset(name)
    FrmTest.MpTest.Layers.Add lyr
    FrmTest.MpTest.Layers.Item(0).Symbol.Color = vbBlue
  
    Set rs = lyr.Records
    FrmTest.DlgOpenShp.Filter = "ESRI Shapefiles(*.shp)|*.shp"
    FrmTest.DlgOpenShp.DefaultExt = ".shp"
    FrmTest.DlgOpenShp.ShowSave
    If Len(FrmTest.DlgOpenShp.FileName) = 0 Then Exit Sub
  
    '导入记录集中
    rs.Export FrmTest.DlgOpenShp.FileName
    Exit Sub</P>
<P>Merr:
    MsgBox "导入Cad文件出错"
End Sub</P><img src="images/post/smile/dvbbs/em30.gif" />