在VB下面怎么给一个shape文件的属性表添加一个新字段？

<P>在VB下面怎么给一个shape文件的属性表添加一个新字段？请给出一个例子</P>

<P>TableDesc是表示关于一个记录集的字段集合的描述的对象.</P>
<P>Private Sub Command5_Click()<BR>'示例，利用TableDesc生成新表</P>
<P>    Dim dc As New MapObjects2.DataConnection<BR>    dc.Database = App.Path<BR>    If Not dc.Connect Then Exit Sub</P>
<P><BR>    Dim tDesc As New MapObjects2.TableDesc<BR>    tDesc.FieldCount = 2<BR>    tDesc.FieldName(0) = "Name"<BR>    tDesc.FieldType(0) = moString<BR>    tDesc.FieldName(1) = "value"<BR>    tDesc.FieldType(1) = moDouble<BR>    tDesc.FieldLength(0) = 35 '设置字符长度，只适用于字符类型<BR>    tDesc.FieldPrecision(1) = 12 '设置数值长度，适用于long或double类型<BR>    <BR>    tDesc.FieldScale(1) = 2 '设置小数点后位置<BR>    Dim gdsnew As MapObjects2.GeoDataset<BR>    Set gdsnew = dc.AddGeoDataset("NewSpatialData", moShapeTypePoint, tDesc)<BR>    MsgBox "已添加完新表"<BR>    <BR>End Sub</P>

<P>我想用TableDesc和AddGeoDataset来建立一个线的shape文件，试了好几次总是不行，哪位好心人有简单的代码粘贴上来研究一下啊？</P>
<P>谢谢！</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />