Vba 在Excel工作表上激发查询并将结果填充到组合框中

我有两个栏目，分别是“公司”和“项目”

我想选择特定公司的所有项目，并将结果产品列表填充到组合框中

我认为ADODB将是实现这一目标的最佳方式。

---

我不知道如何建立连接、命令对象等。请提供详细的代码来实现这一点。

我已经使用以下代码完成了

Dim cn
Set cn = CreateObject("ADODB.Connection")
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.FullName & "; Extended Properties=Excel 8.0"
    .Open
End With

Dim ObjRes
Set ObjRes = cn.Execute("Select * from [SourceData$]")
Do Until ObjRes.EOF
    cmbCompany.AddItem ObjRes.Fields.Item("Company").Value
    cmbProject.AddItem ObjRes.Fields.Item("Project").Value

    ObjRes.MoveNext
Loop

Set ObjRes = Nothing