同样的方法也适用于将货币列格式化，下面是代码片段：
Dim i As Integer
Dim n As Integer
For i = 1 To Adodc1.Recordset.RecordCount
For n = 5 To 9
MSHFlexGrid1.TextMatrix(i, 2) = Format(MSHFlexGrid1.TextMatrix(i, 2), "yyyy-mm-dd")
MSHFlexGrid1.TextMatrix(i, n) = Format(MSHFlexGrid1.TextMatrix(i, n), "￥0.00")
Next n
Next i

不知有没有办法将Access中的数据全部作为字符串反馈到MSFlexGrid或MSHFlexGrid中来，这样只要在Access中设置好格式，就不用再在MSFlexGrid或MSHFlexGrid中进行格式化了。

如果哪位高手知道有这样的方法，请赐教。谢谢！