select * from sys_anl.catalog_bank

Sub Add_Results_Of_ADO_Recordset()
'This was set up using Microsoft ActiveX Data Components version 2.8

Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim stSQL As String
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnStart As Range


Const stADO As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;" & _
"Initial Catalog=Bank_RUR;" & _
"Data Source=M2010012000501\SQLEXPRESS"
'where
'Initial Catalog        = SQL Database  (Bank_RUR);
'Data Source            = SQL Server    (M2010012000501\SQLEXPRESS)

Set wbBook = ActiveWorkbook
Set wsSheet = wbBook.Worksheets("CS_norm")

With wsSheet
    Set rnStart = .Range("A1")
End With

stSQL = "select * from sys_anl.balance201005 a"

Set cnt = New ADODB.Connection
With cnt
    .CursorLocation = adUseClient
    .Open stADO
    .CommandTimeout =  0 
Set rst = .Execute(stSQL)
End With

'Here we add the Recordset to the sheet from A1
rnStart.CopyFromRecordset rst

'Cleaning up.
rst.Close
cnt.Close
Set rst = Nothing
Set cnt = Nothing

End Sub