you have a space in your database name you must enclosed the whole path in bracket:
[C:\users\pcherian\Desktop\HRProRev 29.accdb]
why don't you use DAO instead, its much simpler.
Dim db as dao.database
dim rs As dao.recordset
dim sQry as string
sQry = "SELECT * FROM Final_Export_3 IN '[C:\users\pcherian\Desktop\HRProRev 29.accdb]';"
rs = db.Openrecordset(sQry, dbOpensnapshot)
' do the import in excel here
'...
'...
rs.close
set rs=nothing
set db=nothing