为何在vb.net中中文字段会丢失信息？

Dim pWorkspaceFactory As IWorkspaceFactory<BR>        Dim pFeatureWorkspace As IFeatureWorkspace<BR>        Dim pFeatureClass As IFeatureClass<BR>        pWorkspaceFactory = New ShapefileWorkspaceFactory<BR>        pFeatureWorkspace = pWorkspaceFactory.OpenFromFile(strLocation1, 0)<BR>        pFeatureClass = pFeatureWorkspace.OpenFeatureClass(strLocation2)<BR>        Dim pCursor As IFeatureCursor<BR>        pCursor = pFeatureClass.Update(Nothing, False)<BR>        Dim pRow As IFeature<BR>        pRow = pCursor.NextFeature<BR>        Dim str As String<BR>        Dim i As Integer<BR>        i = pCursor.FindField(str1)<BR>        Do Until pRow Is Nothing<BR>        str = pRow.value(i)<BR>            If str.Length > 10 Then<BR>                str = str.Substring(0, 9)<BR>                          pRow.value(i) = str<BR>                pCursor.UpdateFeature(pRow)<BR>            End If<BR>        pRow = pCursor.NextFeature<BR>        Loop<BR>这段代码，在vba（9.0）,和vb.net（8.3)环境下均正常，可是在vb.net(9.0)环境下却每次做完后会出现里面的中文字段的名称都被截去了一半的现象？怎么回事呢？找不到解决的方法啊

<P>请问你的strLocation1是怎么写的？</P>