LỖI "data type mismatch in criteria expression"

[hoabattu3387]

nhờ các anh chị sửa lỗi "data type mismatch in criteria expression" giúp em ạ (file đính kèm)
Dim rcs As Object
Dim str As String
Set cn = CreateObject("ADODB.Connection")
Set rcs = CreateObject("ADODB.recordset")
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=no;imex=2;"";")
Sheet4.[a2:e65536].ClearContents
With Sheet4
.[A2].CopyFromRecordset cn.Execute("select a.*,b.* from (select right(F2,LEN(F2)-1) AS F1, val(right(f4,len(f4)-1)) AS F2, right(f5,len(f5)-1) as f3,right(f6,len(f6)-1) as f4, right(f7,len(f7)-1) as f5 " & _
"from [GOPFILENAPAS$a1:R]) a left join (select f11 AS F1,VAL(f9) as f2,f4 as f3, f2 as f4, f1 as f5, F3 AS F6 from [PST24$a1:N]) b on a.f3=b.f3")
.[a1] = "SO THE-NAPAS"
.[B1] = "SOTIEN-NAPAS"
.[C1] = "SOTRACE-NAPAS"
.[D1] = "THOIGIANGD-NAPAS"
.[E1] = "NGAYGD-NAPAS"
.[F1] = "SO THE-T24"
.[G1] = "SOTIEN-T24"
.[H1] = "SOTRACE-T24"
.[I1] = "GIOGD-T24"
.[J1] = "NGAYGD-T24"
.[K1] = "FT-T24"
End With