Dim cnt
Set cnt = CreateObject("ADODB.Connection")
cnt.Provider = "SQLOLEDB"
cnt.ConnectionString= "Driver={SQL Server};Server=127.0.0.1;Database=Northwind;UID=sa;PWD="
cnt.Open
Set recordSet = CreateObject("ADODB.Recordset")
Set recordSet1=cnt.Execute("Select * from Employees")

Set objStream=CreateObject("ADODB.Stream")
 
recordSet1.Save objStream,1
 
 
Set objExcel=CreateObject("Excel.Application")
Set objSheet=CreateObject("Excel.Sheet")
objSheet.Application.visible=true
objSheet.activesheet.cells (1,1).CopyFromRecordset recordSet1
objSheet.Saveas "C:\tests.xls"
objExcel.quit
Set objSheet =Nothing
recordSet1.Close