inanzi tutto se dichiari una variabile con nome STRINGA devi usa STRINGA e non STIRNG....



codice:
dim stringa as string 
stringa = "select * from libri where Autore LIKE '*"&paroladacercare&"*' "