Hola que tal estoy realizndo un pequeño programa el cual permita buscar libros en una biblioteca en este foro me ayudaron con el siguiente codigo para buscar solo que me da un error en la linea marcada con rojo espero y me puedan ayudar a solucionar este error, saludos.

Código:
Dim strBuscar as String
Dim rst as ADODB.Recordset
strBuscar = InputBox("INGRESE EL NOMBRE DEL AUTOR", "BUSCADOR DE AUTORES")
if strBuscar <> "" then
     Set rst = New ADODB.Recordset
     rst.Open "SELECT libros FROM DataBse19 WHERE libro LIKE '%" & strBuscar & "'"
     'si encuentra algun registro
     If Not rst.EOF Then
          'puedes agregar un ListBox en tu formulario para mostrar ahi las coincidencias
          ListBox1.Items.Clear
          Do While Not rst.EOF
               ListBox1.Items.Add(rst.Fields!NombreCampo)  
          Loop
     End If
     rst.Close
End If