consultas en visula basic 5

[ricardozl]

hola mi nombre es ricardo, ahora bien mi situacion es la siguiente:

mi programa tiene una busqueda sencilla utilizando un input box que es la siguiente:

LLAVE4 = "NUMERO_PARTE=" + "'" + LLAVE5 + "'"
WLLAVE54 = LLAVE5
Data1.Recordset.FindFirst LLAVE4
If "NUMERO_PARTE" <> " " Then
If Not Data1.Recordset.NoMatch And LLAVE4 <> " " Then
WNUMERO_PARTE = Data1.Recordset.Fields("NUMERO_PARTE")
Text1 = Data1.Recordset.Fields("NUMERO_PARTE")

asi yo declaro mi busqueda, me funciona de maravilla desplegandome los datos en textbox y moviendose al registro que busco en un dbgrid, solo para efectos de ubicacion sin renovar los campos, solo se mueve de posicion al campo que me encontro, este funciona solo si me se el numero de parte completo ejemplo 0000atm3 o 0000atm3aa, ya sea de 8 digitos o 10, el problema que tengo es asi, si yo solamente me se por ejemplo "atm" como puedo hacer la busqueda con solo estos caracteres, y que me haga lo mismo que en mi busqueda original, que me despliegue los datos en los textbox y mueva el puntero en el dbgrid del registro que encontre.