Excel 使用select查询检索不同的值

我试图使用select语句通过宏获取列中的唯一值。但是执行select语句会抛出一个错误。更糟糕的是，错误对话框中没有显示错误消息：

我使用的代码是：

Sub DataFilter()
Dim adoConnection       As Object
Dim rcdSource           As Object
Dim strSource           As String, srcName As String
Dim lngLoop             As Long
MsgBox "Hailo"
Set adoConnection = CreateObject("ADODB.Connection")
Set rcdSource = CreateObject("ADODB.Recordset")

SourceWbk = ActiveWorkbook.Name
strSource = ActiveWorkbook.FullName
MsgBox "strSource is " & strSource

adoConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strSource & ";Extended Properties=""Excel 12.0 XML;HDR=YES"";"
rcdSource.Open "SELECT DISTINCT [Movie Name] FROM [MyExcel_File$] "

End Sub

---

有人能告诉我我做错了什么吗？

Amber，检查这里的示例，你的连接中缺少连接字符串。打开代码[MyExcel_File$]是工作表名？@Alex K。不，是文件名，应该是工作表名IIRC