如何用VB6.0將access匯出成excel

yeh6712

想用VB設計一個按鈕，將帶有密碼的access檔，匯出成excel檔，程式該如何撰寫？我知道如何連接資料庫及打開，但就是不能匯出，請問下列程式，那裡有誤？謝謝…
----------------
Private Sub Command4_Click()
Dim db As Database
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False;Jet OLEDB:Database Password=1234"
Set db = Workspaces(0).OpenDatabase(App.Path & "\test.mdb")
db.Execute "SELECT * INTO [Excel 8.0;DATABASE=C:\pp\匯出資料.XLS].[匯出資料] FROM [測試資料]"
End Sub
------------------------------------------
錯誤訊息：無法辨識 test.mdb資料庫格式…