如何用VB6.0用模板将ms access数据导出到excel？

Dim appExcel As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim i As Integer

Set rs = New ADODB.Recordset
strSQL = "SELECT * FROM TableName"
rs.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Path\To\Database.mdb"

Set appExcel = New Excel.Application
appExcel.Visible = True
Set wb = appExcel.Workbooks.Open("C:\Path\To\Template.xls")
Set ws = wb.Worksheets("Sheet1")

i = 2
Do Until rs.EOF
    ws.Cells(i, 1).Value = rs.Fields("Field1").Value
    ws.Cells(i, 2).Value = rs.Fields("Field2").Value
    i = i + 1
    rs.MoveNext
Loop

wb.SaveAs "C:\Path\To\Output.xls"
wb.Close
appExcel.Quit