Sub Add_Results_Of_ADO_Recordset(stSQL As String, wsSheet As Worksheet, rnStart As Range, Flag As Boolean)
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim k As Integer
Dim IC, DS, LG, PS, stADO As String

'выбор вида подключения
'в первом случае предусмотрена проверка подлинности винды
'во 2 случае - нужно подключение под определенным логин-паролем
If ThisWorkbook.Worksheets("CrystalSphere").CheckBox4.Value = True Then
        IC = ThisWorkbook.Worksheets("CrystalSphere").Cells( 7 ,  3 )
        DS = ThisWorkbook.Worksheets("CrystalSphere").Cells( 8 ,  3 )
        'Initial Catalog (IC)   = SQL Database  (Bank_RUR);
        'Data Source     (DS)   = SQL Server    (M2010012000501\SQLEXPRESS)
            stADO = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;" & _
            "Initial Catalog=" & IC & ";" & _
            "Data Source=" & DS
Else
        IC = ThisWorkbook.Worksheets("CrystalSphere").Cells( 7 ,  3 )   'Initial сatalog
        DS = ThisWorkbook.Worksheets("CrystalSphere").Cells( 8 ,  3 )   'Data source
        LG = ThisWorkbook.Worksheets("CrystalSphere").Cells( 9 ,  3 )   'Login
        PS = ThisWorkbook.Worksheets("CrystalSphere").Cells( 10 ,  3 )  'Password
            '????????????????
            '????????????????
            '????????????????
End If
      
    Set cnt = New ADODB.Connection
        With cnt
            .CursorLocation = adUseClient
            .Open stADO
            .CommandTimeout =  0 
            Set rst = .Execute(stSQL) 'тут ошибка, если в базе нет!!!!!!!!!!!1
        End With
    'Fields name
    If Flag = True Then
        For k =  0  To rst.Fields.Count -  1 
            wsSheet.Cells(rnStart.Row -  1 , rnStart.Column + k).Value = rst(k).Name
        Next k
    End If
    '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

Else
        IC = ThisWorkbook.Worksheets("CrystalSphere").Cells( 7 ,  3 )   'Initial сatalog
        DS = ThisWorkbook.Worksheets("CrystalSphere").Cells( 8 ,  3 )   'Data source
        LG = ThisWorkbook.Worksheets("CrystalSphere").Cells( 9 ,  3 )   'Login
        PS = ThisWorkbook.Worksheets("CrystalSphere").Cells( 10 ,  3 )  'Password
stADO = "Server=" & DS & ";Database=" & IC & ";User ID=" & LG & ";Password=" & PS & ";" & "Trusted_Connection=False"
End If

stADO = "Provider=SQLXMLOLEDB.4.0;Data Provider=SQLNCLI10;Data Source=" & DS & ";Initial Catalog=" & IC & ";User Id=" & LG & ";Password=" & PS & ";"