sorun 2 şeyden kaynaklanıyor galiba
1 -  sorgu kodunuzda başta ve sonda gereksiz boşluklar var o nedenle siz diyelim
"h" yazdığınızda sorgu onun başına ve sonuna boşluk ekleyip
" h " aratıyor oysa boyle bir kayit olmadığı için recordset boş dönüyor, bu nedenle de kayıt bulunamadı hatası veriyor.  2 sorgunuzdan da boşluklar silin
sizin kodunuz

"select firmaadi from firmalar where firmaadi LIKE ' " & ComboBox1.Text & " %' "

olması gereken

"select firmaadi from firmalar where firmaadi LIKE '" & ComboBox1.Text & "%' "

2 - eğer 0 kayıt varsa getrows atama işlemi yine hata verir
kodu aşağıdaki gibi düzenlemeyi deneyebilirsiniz

With alsatform.ComboBox1

If rs.RecordCount > 0 Then .Column = rs.GetRows

End With