ayuda con bases de datos

[maroto1970]

Hola, soy nuevo en este foro y en el mundo de visual basic y ojala me podais ayudar de una forma sencilla.

estoy haciendo una aplilcación en Visual Basic 6.0 y mi problema son las bases de datos.
tengo creada una base de datos en DBASEIII y con 3 campos
CO_CLAVE, CO_TIPO, CO_concepto.

en un formulario me abro un objeto DATA y con sus propiedades
conect DBASEIII
database c:\Miriam\Datos
Recordsource BDCONCEP

y tengo definido un boton que cuando lo pulsa da de alta el registro y este es el código.

NUMERO = Format(tconcepto.Text, "##")
CLAVE = "CO_CLAVE = " & NUMERO & ""
With Data1
Data1.Recordset.FindFirst CLAVE
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
Data1.Recordset("CO_CLAVE") = tconcepto.Text
Data1.Recordset("CO_CONCEPTO") = tdescripcion.Text
Data1.Recordset.Update
Data1.Recordset.MoveFirst
tconcepto.Text = ""
tdescripcion.Text = ""
Data1.Refresh
End if
End With

mi pregunta es, ¿hay alguna otra forma de hacer la lectura ya que mi campo clave es CO_CLAVE? ¿y si tuviede dos campos claves CO_CLAVE y CO_TIPO, como se haria?

por favor he leido manuales y no acabo de enterarme, si pudieses ponerme un ejemplo de codigo os lo agradeceria.

O si se puede hacer de otra forma mas facil picando codigo.

[jose58]

yo lo hago asi pero con acces 2000 usando ado

Private Sub Command3_Click()
Adodc1.Recordset.MoveFirst
While Not (Adodc1.Recordset.EOF)
If Text1.Text = Adodc1.Recordset.Fields.Item(0) Then
Text2.Text = Adodc1.Recordset.Fields.Item(1)
Text3.Text = Adodc1.Recordset.Fields.Item(2)
Text5.Text = Adodc1.Recordset.Fields.Item(3)
Text6.Text = Adodc1.Recordset.Fields.Item(4)
Text7.Text = Adodc1.Recordset.Fields.Item(5)
End If
Adodc1.Recordset.MoveNext
Wend
End Sub


espero ayude en algo

[maroto1970]

muchas gracias, claro que me ayudas, aunque estas haciendo una lectura secuencia, me refiero si puedo acceder de una forma indexada, directamente al registro.
de todas formas muchas gracias.