Problema con select

buenos días, tengo un pequeño problema, cuando hago un select me envía en el datagridview en el titulo me pone "expr1000" y en los campos solo me pone "titulo".

Dim MyAdapt As New OleDbDataAdapter("Select'" & búsqueda & "'from libros", myconex)

creo yo que esta es la linea que me falla, lo que quiero hacer es que desde unos combobox, seleccionar por que quiero buscar si por titulo a autor, dependiendo de lo que seleccione se guardara en una variable asi:

Dim busqueda As String = ""
If cbxbusqueda.SelectedIndex = 0 Then
busqueda = 0
Else
If cbxbusqueda.SelectedIndex = 1 Then
busqueda =
"autor"

luego esa variable la uso en el select para buscar segun el criterio seleccionado.