sql导出excel，附带access导出excel

[bkhm1975]

下面的代码是access数据库导出excel，如果从sql中有选择的导出excel，应该怎么改？
Dim dbSource As Database
Dim xlsName As String
xlsName = App.Path & "\导出数据\" & Trim(Text1.Text)
Set dbSource = OpenDatabase(App.Path & "\数据库\CSRC.mdb")
dbSource.Execute ("SELECT 单位代号,姓名,性别,电话号码 INTO sheet1 IN '" & xlsName & "' 'EXCEL 5.0;' FROM qdymem")


MsgBox "数据成功导入到程序安装目录下的'导出数据'文件夹中"
Unload Me
Exit Sub