Problemas en la búsqueda mediante cuadro de texto

Buenos días

Mi problema es el siguiente, cuando intento buscar un libro no me lo busca hasta que no introduzco el titulo completo. La tabla es TITULO con la fila TITULO que es la que uso como fila de búsqueda , el formulario es bajado de la tabla sin modificaciones.El procedimiento que utilizo es el siguiente.

Option Compare Database
Private Sub Comando4_Click()
If Me.YaVeurem <> "" Then
If Len(Me.YaVeurem) > 30 Then
DoCmd.OpenForm "Llibres", , , CritErio, , acDialog
Else
DoCmd.OpenForm "Llibres", , , "Titulo='" & Me.YaVeurem & "'", , acDialog
End If
Else
MsgBox "Incluye un nombre para buscar", vbInformation, "Buscar"
Me.YaVeurem.SetFocus
End If
End Sub
Private Sub Lista19_Click()
Me.YaVeurem.Value = Me.Lista19.Column(0)
Me.YaVeurem.SetFocus
Me.Lista19.Visible = False
End Sub
Private Sub YaVeurem_Change()
CritErio = Rem_Google(Me.YaVeurem.Text, "", "*")
SQL = "SELECT LIBROS.TITULO FROM Llibres WERHE " & CritErio & ";"
Me.Lista19.RowSource = SQL
If Me.Lista19.ListCount > 0 Then
Me.Lista19.Visible = True
Else
Me.Lista19.Visible = False
End If
End Sub
Private Sub Form_Timer()
Me.Lista19.Visible = False
End Sub
Public Function Rem_Google(Texto As String, Letra As String, Cambio_Letra As String) As String
Dim Carac As String, CaracS As String, NroCarac, PrCarac, DescriFis As String, Letra_Asc As Double
On Error GoTo Rem_TextoTrap
PrCarac = 1
Texto = Trim$(Texto)
NroCarac = Len(Texto)
Letra_Asc = Asc(" ")
Dim str2 As String
SigueCaracCli:
Carac = Mid(Texto, PrCarac, 1)
PrCarac = PrCarac + 1
If PrCarac <= NroCarac Then If Mid(Texto, PrCarac, 1) = " " And Carac = "s" Then GoTo Esteno:
If PrCarac <= NroCarac Then If Mid(Texto, PrCarac, 1) = " " And Carac = "S" Then GoTo Esteno:
GoSub CaracFis:
DescriFis = DescriFis & Carac
Esteno:
If PrCarac <= NroCarac Then
GoTo SigueCaracCli
Else
If DescriFis = "F-100" Or DescriFis = "F/100" Or DescriFis = "F100" Then DescriFis = "100"
If Rem_Google = "" Then
Rem_Google = " (nombre) Like '*" & DescriFis & "*' "
Else
If DescriFis <> "DE" Or DescriFis <> "PARA" Then Rem_Google = Rem_Google & " (nombre) Like '*" & DescriFis & "*' "
End If
End If
Exit Function
'AQUI SE PERMITE CAMBIAR UN TEXTO SIMILAR POR OTRO
CaracFis:
Dim NN As String
NN = Asc(Carac)
If Asc(Carac) = Letra_Asc And PrCarac < NroCarac Then
If DescriFis = "F-100" Or DescriFis = "F/100" Or DescriFis = "F100" Then DescriFis = "100"
If DescriFis = "DE" Or DescriFis = "PARA" Then GoTo Parad:
Rem_Google = Rem_Google & " (nombre) Like '*" & DescriFis & "*' AND "
DescriFis = ""
Carac = ""
Return
ElseIf Asc(Carac) = Letra_Asc And PrCarac = NroCarac Then
If DescriFis = "F-100" Or DescriFis = "F/100" Or DescriFis = "F100" Then DescriFis = "100"
If DescriFis = "DE" Or DescriFis = "PARA" Then GoTo Parad:
Rem_Google = Rem_Google & " (nombre) Like '*" & DescriFis & "*' AND"
DescriFis = ""
Carac = ""
End If
Return
Exit Function
Rem_TextoTrapExit:
Exit Function
Rem_TextoTrap:
If Err.Number = 5 Then
GoTo Parad
Else
str2 = "Error numero: " & Err.Number & "causado " & _
"por una falla. Su descripcion es:" & vbCrLf & _
Err.Description
MsgBox str2, vbExclamation, _
"Historia Clinica para Consultorio"
End If
Resume Rem_TextoTrapExit
Parad:
DescriFis = ""
Carac = ""
Return
End Function

También te mando los datos de la tabla en Vista Diseño .

NOMBRE DEL CAMPO

Id -Tamoño del Camo,Enteri Largo;Nuevos Valores,Incrementalmente;Indexado, Si(Sin Duplicados);Alineación de Texto,General.

TITULO - Tamaño del campo,255;Requerido,Si;Permitir Longitud Cero,Si;Indexado,Si(Con Dupicados);Comprensión Unicode,No;Modo IME,Sin Controles;Modelo Oraciones IME,Nada;Alineación de Texto,General.

ESTAN - Tamaño del Campo.255;Requerido,No;Permitir Longitud Cero,si;Indexado,Si(Con Duplicados);Comprension Unicode,No;Modo IME,Sin Controles;Modo de Oraciones IME,Nada;Alineación de Texto,General.

FOTOGRAFIA - Requerido,No;Alineación de Texto,General.

COMENTARIO - Requerido,No;Permitir Longitud Cero,Si;Modo IME,Sin Controles;Modo de Oracione IME,Nada;Formato de Texto,Texto sin Formato;Alineación de Texto,General.

NUMERO DE PAGINA - Tamaño del Campo.Entero Larga;Lugares Decimales,Automatico;Requerido,No;Indexado No;Alineación de Texto,General.

ORDEN - Tamoño del Campo,255;Requerido,No;Permitir Longitud Cero,Si;Indexaddo No;Comprension Unicorde,Si;Modo Ime,Sin Controles;Modo de Oreciones IME,Nada;Alineación de Texto,General;

NOMBRE AUTOR - Tamaño del Campo,50; Requerido,No;Comprrension Unicode,Si;ModoIME,Sin Controles;Modo Oraciones IME,Nada,Alineación de Texto,Genaral.

TEMA - Tamaño ndelmCampo,50;Requerido,No; Permitir Longitud Cero,Si;Indexado,No;Comprensión Unicode,Si;Modo IME,Sin Controles;Modo oraciones IME,Nada;Alineación de Texto,General.

Espero tu contestaión "Gracias"