.text yerine .value yazıp dener misiniz?
accesste .text sadece nesneye odaklanmışsanız çalışır diye biliyorum

---

ayrıca strSQL1 nin olduğu satır da aşağıdaki gibi yeniden düzenlenmeli

strSQL1 = "SELECT * FROM tblFirmalar WHERE ((Faturacinsi)='" & aranan & "');"