Realizar búsqueda de datos

Quisiera saber como creo una sentencia de busquesda. Por ejemplo tengo el formulario clientes y deseo buscar uno en especifico de acuerdo a un criterio de búsqueda ya sea el nombre o el nit. Estoy trabajando con tecnología ado. Ya antes había realizado la siguiente sentencia pero no me dio resultado
Dim cadena As String
cadena = "*" & txt_bus.Text & "*"
sqlbuscar = "SELECT * FROM [Colegios] where Nom_Col like '" & cadena & "'"
Esto va acompañado de otro código el que ejecuta lasentencias, etc. Lo que ami me interesa es aramar la sentencia para que busque por ejemplo un cliente por el *nombre*. Gracias