Dim cnsql As String
    Set rs = New ADODB.Recordset
    cnsql = "select top 30 udate,utitle,money,memo from luozi_use order by udate,id desc"
    rs.CursorLocation = adUseClient
    rs.Open cnsql, cn, 3, 3
    If Not rs.EOF Then
    Set DataGrid1.DataSource = rs
    With DataGrid1
    .Caption = "最近30笔消费详情"
    .Columns(0).Caption = "日期"
    .Columns(1).Caption = "说明"
    .Columns(2).Caption = "金额"
    .Columns(3).Caption = "详细说明"
    .Columns(0).width = 1000
    .Columns(1).width = 1500
    .Columns(2).width = 1000
    .Columns(3).width = 5000
    .Columns(0).DataField = Format(rs("udate"), "yyyy年 mm月 d日")
    End With
我的rs("udate")原来的数值是2008-10-16,想转成 2008年10月16日形式,但是我发现.Columns(0).DataField 无法对这个值进行更改.有高人帮解决一下么,先谢过了!