Select.Text) & "'") '找到用户所选的工作信息
        '构造工作描述信息，并显示在文本框中
        strDesc = "【name】 " & Trim(CobSelect.Text) & vbCrLf
        strDesc = strDesc & "【工作状态】 " & Ado1.Recordset.Fields("status") & vbCrLf
        strDesc = strDesc & "【起始日期】 " & Ado1.Recordset.Fields("ftime") & _
        "【结束日期】 " & Ado1.Recordset.Fields("etime") & vbCrLf
        strDesc = strDesc & "【具体安排】 " & vbCrLf & Ado1.Recordset.