Run-time error '-214721 hatası

[feridici_genc]

Hayırlı akşamlar.

Bu konuda kullandığım kodlar aşağıdaki gibi hata veriyor.
Dosya açık olmamasına rağmen dosya açık deyip işi yarıda kesiyor.
Bu sorunu nasıl aşabiliriz? Defalarca kontrol ettim dosya kapalı ama dosya açık hatası alıyor ve aşağıdaki kod sarıya boyanıyor?
Yardım edermisini?

Kodların tamamı

Private Sub CommandButton1_Click()
Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    Set fso = CreateObject("Scripting.FileSystemObject")
    yol = ThisWorkbook.Path & "\ARAÇLAR"
    Range("A2:M65536").Clear
    For Each dosya In fso.getfolder(yol).Files
           If dosya.Name <> ThisWorkbook.Name And Mid(dosya.Name, 2, 1) <> "$" And IsNumeric(Left(dosya.Name, 1)) Then
           con.Open "provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""Excel 12.0; hdr=yes"""
           sorgu = "SELECT PLAKA, DEPARTMAN,[ÇIKIŞ TARİHİ],[DÖNÜŞ TARİHİ],[KATEDİLEN KM] FROM [Sayfa1$B3:M" & Rows.Count & "]"
           rs.Open sorgu, con, 1, 3
           Range("A65536").End(3)(2, 1).CopyFromRecordset rs
           rs.Close
        End If
       Next dosya
End Sub

Hata veren satır

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""Excel 12.0; hdr=yes"""

 

[feridici_genc]

Sorunu buldum.

con.Close

satırı silinmiş