vb从ACCESS导出到excel出错了。。。

Private Sub Command1_Click()
Dim rst As New ADODB.Recordset
rst.Open "select " & Left(Trim(Text1.Text), Len(Trim(Text1.Text)) - 1) & " from " & Combo1.Text & "", conn, adOpenDynamic, adLockOptimistic
Dim xlsapp As Excel.Application  '定义Excel程序
Dim xlsbook As Excel.Workbook    '定义工作簿
Dim xlssheet As Excel.Worksheet  '定义工作表
Dim i, j As Long
Set xlsapp = CreateObject("excel.application") '创建Excel应用程序
Set xlsbook = xlsapp.Workbooks.Add '创建工作簿
Set xlssheet = xlsbook.Worksheets(1) '创建工作表
On Error Resume Next
j = 1
Do Until rst.EOF
For i = 1 To rst.Fields.Count
xlssheet.Cells(j, i) = rst.Fields(i - 1)  '写入记录集（不包括表头）
Next i
rst.MoveNext
j = j + 1
Loop
xlsapp.Visible = True '显示电子表格
xlsbook.SaveAs App.Path & "\导出数据.xls"
Set xlsapp = Nothing '交还控制权给excel
rst.Close
conn.Close
Set rst = Nothing
Unload Me
Unload rstvb 连接ACCESS时出现语法错误。错误提示：实时错误‘-2147217900（80040e14）’: 语法错误（操作符丢失）在查询表达式'E:\杨莉\vb代码\财务管理系统（bn+access）\财务管理系统\data.md'中，。。
查询表达式中是路径，正确的。现在截出的路径中减去一个字符，所以提示的是。\data.md。我把“Len(Trim(Text1.Text)) - 1)”中的-1去了。路径是对的。但是提示错误还是那样。。只是提示为式'E:\杨莉\vb代码\财务管理系统（bn+access）\财务管理系统\data.mdb '中。这是为什么呢