Visual Basic - hice esto.

Set rs = BD.OpenRecordset("select *" & "from Credes " _
& "where nombre like " & strBusqueda)

pero me manda el error SE ESPERABA 1 .

Yo pondría:

Set res = BD.OpenRecordset("select * from Credes " & _
" where nombre like " & strBusqueda)

Yo pondria esto otro:
Set res = BD.OpenRecordset("SELECT * FROM Credes WHERE nombre like ' " & strBusqueda & " ' ". La diferencia con el código que te dio Esperanza es que te estas comiendo la comilla simple ( ' ) antes, y despues del String a buscar. Ahora, no estoy seguro que de ese error (Demasiados pocos parametros, se esperaban...x) por no poner las comillas simples. Si se me ocurre por que puede dar ese error te digo.