Acceder al sistema de consulta de desempeño de los estudiantes

Hice un sistema de gestión de biblioteca en el que consulto el nombre del autor del libro. La consulta es teóricamente la misma. Copié el siguiente código:

Los tres botones son botones de radio

. Private Sub Command4_Click()

En caso de error Ir a error:

Si Texto1..Texto <> """Valor Entonces searchSQL = "SELECT * FROM Lending WHERE Reader Name=" & " '" & Texto1.Texto & "''"

Si Opción3.Número de identificación del lector = " & "''" & Texto1.Texto & "''"

De lo contrario

MsgBox "La condición no puede estar vacía"

Text1.SetFocus

End If

Adodc1.Record Source = searchSQL