想把专业报表生成的花名册的出生日期的格式改变如何实现？

2008年12月31日这种格式改为2008年12月

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:实例一.table

……

                Dim AA As Object = tb.Rows(r)(ColNames(c))  \'定义变量AA为Object类型数据（通用型，可存放任何类型的数据）
                If AA = "0"  Then  \'如果变量AA为“0”执行如下语句
                    Rs2.Cells(r + 1, c).Text =""
                Else    \'如果变量AA不为“0”执行如下语句
                    Rs2.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
                End If
            End If
            If ColNames(c) = "出生日期"
                Dim Multi As String = tb.Rows(r)(ColNames(c))
                Dim Values() As String
                Values = Multi.split("月")
                Rs2.Cells(r + 1, c).Text = Values(0) & "月"
            End If
……

要命啊，日期也用字符型：：：：：  这样吧：

If ColNames(c) = "出生日期" Then
Rs2.Cells(r + 1, c).Text ＝tb.Rows(r)(ColNames(c)).split("月")(0) & "月"    

.............

end if