Find con ADO

[extrem_bcn]

1.Para el IGUAL.

MiRecordset.Find "Tema = '" & Text1.Text & "'"

2. En cualquier lugar te refieres a que pueda coincidir en cualquier lugar de la palabra?

MiRecordset.Find "[Tema] like & " " & Text1.Text (diria que el Like iva sin la comilla simple, pruebalo.)
En el like puedes utilizar el "*" (una o varias ocurrencias de cualquier carácter) o "_" (una ocurrencia de cualquier carácter)

3. Despues del registro actual en el que te encuentras (o uno en concreto)

MiRecordset.Find "[Tema] ='" & Text1.Text & "'", Num, adSearchForward

4. Antes del registro actual en el que te encuentras (o uno en concreto)

MiRecordset.Find "[Tema] ='" & Text1.Text & "'", Num, adSearchBackward


Num es una variable LONG que le pasas para decirle el número de registros que quieres que avance para que empiece a buscar desde allí. Si pones 0 buscará desde el actual.