set Qt.Recordset = Qt.Recordset
	Qt.Refresh

Sub DataRetrive()
    Dim Cn      As ADODB.Connection
    Dim Qt      As QueryTable
    Dim Rs      As ADODB.Recordset
    Dim StartRn As Range
    
    Set StartRn = ThisWorkbook.Worksheets("Примечания").Range("A7")
    On Error Resume Next
    Set Qt = StartRn.QueryTable
    Set Rs = Qt.Recordset
    Set Cn = Rs.ActiveConnection
    On Error GoTo  0 
    If Cn Is Nothing Then Set Cn = New ADODB.Connection
    If Rs Is Nothing Then Set Rs = New ADODB.Recordset
    If Cn.State = adStateClosed Then Cn.Open "Provider=sqloledb;Data Source=Zeon;Initial Catalog=Synthetic", "SyntheticMaster", "nosmoking"
    If Rs.State = adStateClosed Then
        Rs.Open "notes", Cn, adOpenForwardOnly, adLockReadOnly, adCmdTable
    Else
        Rs.Requery
    End If
    If Qt Is Nothing Then
        Set Qt = StartRn.Worksheet.QueryTables.Add(Rs, StartRn)
    Else
        Set Qt.Recordset = Rs
    End If
    Qt.Refresh
End Sub