Microsoft Embedded - Busqueda con ADOCE.

Buenas tardes,

Para realizar una busqueda escribo lo siguiente.

Dim tabla As Recordset
Set tabla = CreateObject("ADOCE.Recordset.3.1")
tabla.Open fichero, conexion
tabla.MoveFirst
tabla.Find "codigo = '1 '"
If File1.EOF Then
MsgBox "no lo encuentro"
Else
MsgBox "lo encuentro"
End If
tabla.Close
Set tabla = Nothing

y me da un error no especificado, alguien podria decirme como solucionarlo, o bien existe otra manera, (Find, Seek), pero no con SQL, ya que si uso Find, Seek, es por ganar en rapidez, y SQL va lento.

Gracias...

Todas las busquedas de este tipo que he tenido que hacer las he hecho mediante SELECT

cambias "fichero" por una variable de texto que contenga la SELECT completa, funciona bastante bien, pero no esperes milagros!!!!!

tambien es lento