Visual Basic para Aplicaciones - buscar nombre en Ascces

Con este codigo busco el nombre en una BD, pero tengo que introducir el nombre completo.
Como puedo hacer la busqueda solamente con el inicio de nombre.
ejemplo: quiero buscar ayuntamiento poniendo solo ayun

mensaje$ = "Introduzca el Nombre."
'obtiene la cadena que se utilizará en la búsqueda del título
SearchStr$ = InputBox(mensaje$, "Búsqueda del Nombre")
basedatos.Recordset.Index = "NOMBRE" 'usa Nombre Clase
basedatos.Recordset.Seek "=", SearchStr$ 'y busca
If basedatos.Recordset.NoMatch Then 'si no encuentra ninguno
basedatos.Recordset.MoveFirst 'va al primer registro.
End If

No se como llevas el código, pero puedes utilizar instrucciones SQL cuando haya realizado la busqueda y no encuentre el Nombre.