VB-从Access读取数据到Excel

Private Sub Command1_Click()

Dim cn As New ADODB.Connection

cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\xudajun\Desktop\cs\st.mdb;Mode=ReadWrite;Persist Security Info=False"

cn.Execute"select* into [Excel 8.0;DATABASE=C:\Users\xudajun\Desktop\cs\Book1.xls].sheet1 from b1"

cn.Close

End Sub