Visual Basic - Busqueda en ADO

Hola alguien puede decime como buscar un registro en un recordset de ADO, algo parecido a un findfirst y que me devuelva algo como el Nomatch para ver si lo encontro o no.

crea una variable como esta
habre la base de datos con adodb como la habres normalmente posteriormente declara u recordset de la siguiente forma

Set rdvariable = New ADODB.Recordset

y utilizalo asi

With rdvariable
.ActiveConnection = dbsitnew
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "GITTRTS0"

End With
esta contiene la propiedad seek o find o en otro caso che todas las propiedades

cualquier duda enviame un correo y te la conteto con gusto

Mira lo que quiero es algo parecido al utilizar DAO y que utilizando la instrucion FindFirst en la propiedad NoMatch me indica si encontro o no el registro.

con ado solo existe un metodo de busqueda exclusivo que es find no existe findfirst o otra cosa un codigo de ejemplo:
lo primero es ir a proyecto-Referencias y escoger microsoft active data object 2.1
dim rsproductos as new adodb.recordset
rsproductos.CursorLocation = adUseClient

'seleccionas los campos que quieres y estableces la conexion
rsproductos.Open "select * from Productos", Cn

'para la busqueda usas un textbox obiamente para pasar el parametro
esta estructura es sencilla pero funciona

With rsproductos 'buscar codigo que no exista en la tabla Productos
.MoveFirst
.Find "IdProducto=" & Val(Trim(Tex1.Text)) & ""
If .EOF Or .BOF Then
'si llega a final de archivo, entonces no existe, de lo contrario.....
o puedes hacer lo contrario (if not .EOF or not .BOF then)
Else
MsgBox "Este codigo ya Existe!!", vbInformation, "Facturacion"
text1.SetFocus
Exit Sub
End If
End With

espero te sirva de mucho