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