超级高手进FormatDateTime

Function list_data()
        Dim strsql As String
        strsql = "select [id], [c_id], [t_id], [u_id], [u_name], [tim],[bumen],[apply_tim], [type], [caigou_name], [caigou_type], [danwei], [num], [yongtu],[beizhu]"
        strsql += "from [Purchase_linshi_biao_fu] where [tim]='" & FormatDateTime('yyyymmdd hh', Now) & "'and [bumen]='" & group() & "' and [type]='" & caigou_type() & "' order by [id] desc"
        conn.Bind_samp_grid(strsql, dgfind)
 End Function
我只要年月日时，但是单引号不可用，请教有才的高手们！谢谢！ 是vs2003 windows2003 sql2000