暂时谢谢了！

弄不好再来请教。

1、上面的方法格式化的是系统时间，比如原本是1月1日，结果输出的是当前的系统时间。
2、只格式化了一个单元格，而不是一整列。

需要说明的是，记录条数不是固定不变的，也就是说行数不是固定的，它会随着记录的增加而增加。另外，时间是已经存在于记录中的时间，而不是现在的系统时间。

问题解决
Dim i As Integer
For i = 1 To Adodc1.Recordset.RecordCount
MSHFlexGrid1.TextMatrix(i, 2) = Format(MSHFlexGrid1.TextMatrix(i, 2), "yyyy-mm-dd")
Next i

谢谢purana ！

同样的方法也适用于将货币列格式化，下面是代码片段：
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中进行格式化了。

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