ERRoR al buscar

[LOCOX73]

porque me tira error esto:

Private Sub cmdbuscar_Click()
Dim nReg As Long
nReg = Val(txtbuscar)
Adopac.Recordset.Filter = "documento Like '" & nReg & "*" & "'"
end sub

me tira
error '-2147217825 (80040e5f)' en tiempo de ejecucion:
the requested filter could not be opened


¡QUE HAGO????????
tendra algo que ver que son solo numeros, o que el campo es el id de la tabla?

[GeoAvila]

mira lo que pasa es que el objeto Adopac, no esta abierto primero antes de hacer el filtro revisar si esta habierto el recordset para poder trabajar con el, segundo, mira si existe el campo al que haces referencia en el recordset, y mira si coninciden los tipos, puesto que el ripo de documento lo tenes como texto y si es numerico tambien puede haber un error por alli

nos vemos..