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

用下面的代码可以导入dwg文件，但是文字和数字都导不过去，而且如果原来的dwg文件有许多层的话都放到了同一层上（保存为一个shp文件）这样就无法对各个图层分别操作了，希望高手指点一下

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

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

Merr:     MsgBox "导入Cad文件出错" End Sub