Vba 从Access表中提取唯一值并创建可在组合框中使用的数组

我希望能够将Access数据库中的详细信息提取到excel工作簿中。我已经创建了一个userform，用户在其中输入策略号，然后单击一个命令按钮，该按钮将为另一个userform提供该策略的所有引用的下拉列表

access数据库表包含给定报价的多行，但我希望能够提取策略的唯一报价ID列表，用户可以从中选择要加载详细信息的报价

下面是Access数据库的摘录（表名qteVehicleDetails，数据库名QuoteDB）

我希望能够提取给定策略的唯一引号ID列表（您将从数据库提取中看到存在重复项）

然后我想将其保存为一个范围，该范围可用于填充第二个userform中的组合框

"SELECT DISTINCT qteVehicleDetails.* FROM qteVehicleDetails WHERE (qteVehicleDetails.policyno=" & LoadQuoteDetails.Controls("PolicyNo").Value & " AND qteVehicleDetails.Class=" & LoadQuoteDetails.Controls("Class").Value & ");"

您可以尝试在sql脚本中添加“distinct”

"SELECT DISTINCT qteVehicleDetails.* FROM qteVehicleDetails WHERE (qteVehicleDetails.policyno=" & LoadQuoteDetails.Controls("PolicyNo").Value & " AND qteVehicleDetails.Class=" & LoadQuoteDetails.Controls("Class").Value & ");"