Private Sub Form_Load()
    Dim ms As ADODB.Recordset
    '初始化员工ID、姓名
    SQL = " select * from 员工录用信息表"
    Set ms = SelectSQL(SQL, msg)
    If ms.RecordCount = 0 Then
        MsgBox ("请先建立员工录用信息!")
        Exit Sub
    Else
        Do While Not ms.BOF And Not ms.EOF
            '添加到ComboBox列表
            CboYGID.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
            CboQuery.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
            cboQueryKH.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
            cboYG.AddItem (ms.Fields("员工ID") & ms.Fields("姓名"))
            ms.MoveNext                         '指向下一条记录