Excel SQL-列/范围单元格中的值

我正在尝试从工作表

数据中的A列（单元格A1到A20000）检索数据。当我输入这个查询时，我得到一个错误：“意外的额外令牌
Dim
”。我做错了什么

SELECT 
    OZATI_etc.Account, 
    OZATI_etc.Equipment
FROM 
    OZATI_etc
WHERE 
    OZATI_etc.Account IN (SELECT * FROM [data$A1:A20000])
ORDER BY
    OZATI_etc.Account

    Dim currentRow As Integer
    Dim str As String
    currentRow = 1
    Do While (sheets("data").Range("A" & currentRow).Value <> "")
        str = str & ",'" & sheets("data").Range("A" & currentRow).Value & "'"
        currentRow = currentRow + 1
    Loop
    str = Mid(str, 2)

选择
OZATI_等账户，
OZATI_等设备
从…起
奥扎蒂等
哪里
OZATI_等账户（从[数据$A1:A20000]中选择*）
订购人
OZATI_等账户
将currentRow设置为整数
作为字符串的Dim str
currentRow=1
Do While（工作表（“数据”）.Range（“A”）和currentRow.Value“”）
str=str&“，”&工作表（“数据”）。范围（“A”&当前行）。值&“
currentRow=currentRow+1
环
str=Mid（str，2）
可能的原因包括：公司信息中提供的登录名和密码不正确。ODBC数据源配置不正确。没有看到标识符有错误