小问题请帮忙

Question

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ttt;Data Source=tiger"
    conn.Open
    
    Set rs = New ADODB.Recordset
    rs.Open "select getdate() as fldTime", conn
    
    MsgBox rs.Fields("fldtime")
    MsgBox Format(rs.Fields("fldtime"), "hh:mm")
        
    rs.Close
    conn.Close
    
    Set rs = Nothing
    Set conn = Nothing