将查询结果导出到Excel的另一个方法

Option Explicit
Dim dbado As New ADODB.Connection
Dim cmdado As New ADODB.Command
Dim sqlstr As String
Dim howdo As String
Dim filename As String
Private Sub command1_click()
filename = App.Path & "" & InputBox("输入新文件名：", "保存") & ".xls"
howdo = Text1.Text
dbado.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "goods.mdb;Persist Security Info=False")

sqlstr = "SELECT * INTO [Excel 5.0;DATABASE=" & filename & "].[data] FROM [basic] where id in (" & howdo & ")"
dbado.Execute (sqlstr), , adCmdText + adExecuteNoRecords
dbado.close
end sub