vb怎么导出access中的excel表格

Dim Rs as New ADODB.RecordSet
Dim CN as new ADODB.Connection
CN.Connectionstring=***(忘了怎么写了，用ADO向导建一个连接然后把连接字符串复制下来）
Set RS=CN.Execute ("SELECT * FROM WPS")

Do While Not Rs.EOF
向EXCEL赋值的语句
Loop