Visual Basic - control DATA vb6 y seek

Hay alguna forma usar el Metodo Seek en lugar de Find en el control Data de VB6. Al usar Fin, como se verifica el exito de la busqueda.
Lo estoy usando con un control dbgrid asociado.
Gracias

Hola, Aqui va un ejemplo, espero que te sirva

tambien te sirve el Data1.Recordset.Seek

'-----------------------------------

Dim dbs As Database
Dim reg As Recordset

Set dbs = OpenDatabase("Ruta de Base de Datos")
Set reg = dbs.OpenRecordset("Tabla", dbOpenTable)

reg.Index = "PrimaryKey" 'debes indexar, por el indice, q esta en la tabla
reg.Seek "=", Text1.text 'buscar el valor igual al texto

If reg.NoMatch Then
reg.Close ' Cierro el Recordset
dbs.Close ' Cierro la base de datos
MsgBox "El Codigo No Fue Encontrado", vbExclamation, "Atención"
else
MsgBox "El Codigo Se Encontro"
Text1.Text=reg.Fields("Nombre")
Text2.Text=reg.Fields("Codigo")
Text3.Text=reg.Fields("Direccion")

reg.Close ' Cierro el Recordset
dbs.Close ' Cierro la base de datos
End If

' Libero la memoria
set reg=nothing
set dbs=nothing

'-------------------------------------------

Nota: la tabla, debe estar indexada, en la tabla Access
si no sabes indexar, busca en la ayuda del Access.

Suerte....

connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\COOP\SOCIOS.mdb;Persist Security Info=False"
cn.Open connString
rs.Open "SOCIOS", cn, adOpenStatic, adLockOptimistic, adCmdTable

Gracias por la respuesta........ Estoy usandolo de esa forma...... pero ocurre que asi..... no te permite relacionarlo con el Control DataGrid de la version 6 y el problema que el control DataGrid de la Version 5 no soporta las MDB de Access 2000.
Una solucion seria convertir la mdb a la version anterior, pero no me parece algo eficiente.

Para abrir las mdb de Access 2000 uso referencia a
Microsoft ADO 3.6 Object Library y funciona perfectamente la busqueda con Seek.
Pero el problema es que asi no te deja usar el DataGrid6 y tampoco podes usar el DataGrid5.
La solucion es conectando la base de datos usando cadena de conexion, pero asi como lo usas a los indices? En toda la documentacion que tengo.... y lamentablemente todos se explayan en la "vieja forma de acceder" y nadie dice como se usan los indices en la nueva version. Quizás no soportan indices?

para hacerlo al asociar el control con un objeto ado podes cargar en el codigo sql
ejemplo que quieras buscar el nombre de una persona en la tabla personas; al ingresar cada caracter en un cuadro de texto

codigo en el ado
-------Select * from personas------
muestra todo el listado

codigo en el cuadro de texto (text1.text_keyup)
Select * from personas where nombre like'" & Text1.Text & "%' order by Nombre"

Hola Julio

Tu pregunta fue por el control DATA vb6 y seek.
por ende estas preguntando por DAO.
el control del ADO, se llama ADODC.

y el Control Data trabaja con el DBGrid. no con DataGrid.

Tienes que aprender a hacer esa diferencia si quieres ayuda.

Saludos

Ariel...

Gracias por tu ayuda.

La verdad estaba buscando como activar los indices en ADO y hacer busquedas en ellas. Pero gracias a DIOS aprendi de un libro..... que te lo recomiendo.....MANUALES USERS Bases de datos en Visual Basic 6.0.

El SQL y el motor de base de datos se encarga de todo ello..... pagina 57
de todas formas.... muchisimas gracias......
gracias..... gracias.... gracias.... gracias.... cualquier duda o inquietud estoy a tus ordenes.