rs.Open "select 牌照号,车型, 客户名称, 联系电话,维修项目,维修人 from 委托单,派工单 where 委托单.委托单号=派工单.委托单号 AND 派工单.委托单号='" & Trim(Combo1.Text) & "'", conn, 1, 1