Credo tu commetta molti errori soprattutto concettuali.
Una Combo solitamente non si sfrutta per la parte TESTUALE, ma perchè è legata ad una Tabella con un Campo ID(Chiave) ed uno o più Campi Testo descrittivi...!
Quindi si visualizza la parte Descrittiva ma si fa riferimento alla parte Relazionale o alla colonna della Chiave.
Quindi se cerchi un Libro per il Titolo, in realtà il TITOLO esatto deve avere un riferimento al campo Chiave primaria già definito, quindi non cerchi per Titolo ma per ID.
Si cerca per TITOLO se e solo se devi effettuare una ricerca parziale... ovvero per PAROLE singole da ricercare all'interno del titolo.
Quindi se devi selezionare un Item dalla Combo che rappresenta un Testo mi viene da pensare che in realtà dovrebbe essere legato ad un INDICE... e se così non è forse qualche cosa su cui riflettere c'è...
In ogni caso, nel tuo esempio non funziona per il motivo che la Sintassi del Filtro va differenziata a seconda del Tipo di Dato... nel tuo caso essendo testo e non Numero servono gli APICETTI, ma devi anche far attenzione agli Apostrofi.
Così dovrebbe andare meglio
Private Sub Comando30_Click()
DoCmd.OpenReport "Libri", acViewReport, , "Titolo = '" & REPLACE(CasellaCombinata1,"'","''") & "'"
End Sub