Welcome to Stratos!
Set buscar = mibase.OpenRecordset("SELECT * from tabla_base where tabla_base!categoria LIKE trim(' " & categoriaselegir.Text & " ')order by Tabla_base!nombre asc")
me parece que trim no es de sql.