EXCEL用SQL语句连接xlsx文件，select*from语句报错
Option Explicit
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub TextSearch_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Me.TextSearch.Value = ActiveCell.Value Then
Me.TextSearch.Value = ""
End If
Set con = New ADODB.Connection
con.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & _
ThisWorkbook.Path & "\test.xlsx"
Dim sql As String
sql = "select 编号&名称 from [数据源$A2:Q563655]"
Set rs = con.Execute(sql)
Dim i As Integer
With ListSearch
.Clear
For i = 1 To rs.RecordCount
.AddItem rs("编号") & Space(2) & rs("名称")
rs.MoveNext
Next i
End With
rs.Close
End Sub
运行结果及报错内容：至少一个参数没有被指定值 ，监测from没有获取到值
预期效果：能在界面上下拉显示【编号 名称】，进行筛选
