Private Sub Cbowenshu_GotFocus()
    m_recordset.Open "select * from songdaleixing where wenshu = '调查报告'", m_dbConnection, adOpenKeyset, adLockOptimistic
   Cbowenshu.Clear
    If m_recordset.RecordCount = 0 Then
    MsgBox "没有记录，请核对清楚!", vbInformation, "错误"
    End If   
    While Not m_recordset.EOF
     Cbowenshu.AddItem m_recordset.Fields("leixing")
    m_recordset.MoveNext
    Wend
   m_recordset.Close

End Sub

m_recordset.Open "select distinct leixing from songdaleixing where wenshu = '调查报告'", m_dbConnection, adOpenKeyset, adLockOptimistic

谢谢高手！有问题再请教！