版主，我的这个符号化过程为什么说错误了啊？

<P>版主，我的这段代码是想将同一个点层的不同属性的点用相应的字符库字符来显示，可是在添加图层的时候说我的Mismatch，特来求救啊   </P>
<P> Dim moRecset As MapObjects2.Recordset
    Dim i As Integer
    Dim pLayer
    Dim VMR As ValueMapRenderer
    Dim sFldName As String
    Dim Strs As New MapObjects2.Strings
    
    Set VMR = New ValueMapRenderer
    Strs.Unique = True
    
    Set pLayer = Map1.Layers(0)<FONT color=#ff0000>'</FONT><FONT style="BACKGROUND-COLOR: #f7f709" color=#ff0000>就是这里提示说类型不匹配，不懂啊，别的工程中这样是没有问题的啊
</FONT>    Set moRecset = pLayer.Records</P>
<P>    sFldName = "YSDM"
    Do While Not moRecset.EOF
        Strs.Add moRecset(sFldName).ValueAsString
        moRecset.MoveNext
    Loop
    Set pLayer.Renderer = VMR
    VMR.SymbolType = moPointSymbol
    VMR.ValueCount = Strs.Count
    VMR.Field = sFldName
    For i = 0 To Strs.Count - 2
        VMR.Value(i) = Strs.Item(i)
        VMR.Symbol(i).Style = moTrueTypeMarker
        VMR.Symbol(i).Size = 12
        VMR.Symbol(i).Color = moRed
        VMR.Symbol(i).Font.Name = "ESRI Telecom"
        VMR.Symbol(i).Font.Size = 12
    Next i
    VMR.Symbol(0).CharacterIndex = 33
    VMR.Symbol(1).CharacterIndex = 34
    VMR.Symbol(2).CharacterIndex = 35
    VMR.Symbol(3).CharacterIndex = 36
    VMR.UseDefault = True
    VMR.DefaultSymbol.Color = moBlue
    VMR.DefaultSymbol.Size = 12
    VMR.DefaultSymbol.Style = moPointSymbol
    Map1.Extent = Map1.FullExtent
    Map1.Refresh</P>