Mostrar registros numéricos en un grid
Tengo un form con un textbox, 4 commandbuton y un grid, con un botón busco por apellidos(C), con el segundo busco por ide del proveedor (N,2) y con el tercero busco por dni(N,9), cargo los registros en un cursor y los muestro en el grid, mi problema es cuando busco por dni, tengo que escribir en el textbox los 8 números del dni, lo que quiero hacer es que cargue en el cursor por ejemplo todos los dni cuyo primer digito sea 2 o si escribo 24 carge el cursor con todos los dni cuyo 2 primeros digitos sean 24, te acompaño el codigo que busca por dni, para que me orientes donde esta la falla, gracias de antemano :
PUBLIC xBuscar
xBuscar=ALLTRIM(thisform.textBuscar.Value)
VAL(xBuscar)
SELECT 1
USE plani_dia
SET ORDER TO DNI && DNI
SELECT cCursor
APPEND FROM plani_dia FOR DNI=VAL(xBuscar)
THISFORM.Grid1.RecordSourceType=4
THISFORM.Grid1.RecordSource="cCursor"
thisform.Grid1.Refresh()
La apertura de la BD y el Create cursor lo tengo en el INIT del form