xpath =  "c:\" 
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    cn.Open  "Provider=VFPOLEDB.1 ;Data Source=" & xpath &  ";Password="  """ ;Collating Sequence=MACHINE "
    rs.Open _
    " SELECT * FROM c:\s500,f:\f01 where f01.kod_kl=s500.kod_kl ", cn, adOpenForwardOnly, adLockReadOnly
    Sheets(" Лист1 ").Select
    Range(" A4 ").CopyFromRecordset rs
    Range(" A4").Select
    rs.Close
    cn.Close
    
    Set cn = Nothing
    Set rs = Nothing