主题：时间格式怎么改？

Dim d As String = Tables("商品").Current("addtime")       
'Dim d As Date = e.DataRow("addtime")
Dim bh As String = Format(D,"MMddhhmm")

这段代码我想在按钮代码里 显示为 08240534 这种形式应该怎么写？

addtime 为时间格式

现在显示为 mmddhhmm