Ayuda comando buscar registro con vb6.0 y access

[alba15]

Hola es la primera vez que publico y es por que necesito su ayuda, tengo el siguiente codigo y me muestra el siguiente error:  No se han especificados algunos valores para un parametro requerido.
el codigo es el siguiente:

Private Sub cmd_buscar_Click()
Dim tbl As New ADODB.Recordset
tbl.Open "Select * FROM zapatos WHERE Codigo" & txt_cod.Text, cn, adOpenDynamic, adLockOptimistic

If tbl.EOF = treu And tbl.BOF = True Then
txt_cod.Text = tbl("Cdigo")
txt_marca.Text = tbl("Marca")
txt_precio.Text = tbl("precio")
Text4.Text = tbl("dos y medio")
Text5.Text = tbl("tres")
Text6.Text = tbl("tres y medio")
Text7.Text = tbl("cuatro")
Text8.Text = tbl("cuatro y medio")
Text9.Text = tbl("cinco")
Text10.Text = tbl("cinco y medio")
Text11.Text = tbl("seis")
Text1.Text = tbl("seis y medio")
Text2.Text = tbl("existencias")

Else
MsgBox ("el codigo no existe")
End If
End Sub
_____________________________________________________________
Public Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\alternativa2\Database1.mdb;Persist Security Info=False"


El error me aparece en la tercera linea, la agradecere mucho su ayuda

[MCKSys Argentina]

Hola!

Veo que tienes mucha cosas "mal" (?):

- En el SQL te falta el igual (sería "Select * FROM zapatos WHERE Codigo=" & ... bla, bla, bla)
- Estás comparando tbl.EOF con treu
- Quieres acceder al valor del campo Cdigo (Pero parece que es Codigo)

Hace mucho que no programo en VB6 y ADO; por lo que no recuerdo si se podía acceder a los campos de esa forma. Recuerdo que usaba la forma Tabla!Campo, pero no recuerdo si aplica a ADO.

Saludos!

PD: Si colocas código, hazlo entre las etiquetas GeShi.

[alba15]

ya hice esos cambios gracias si los tenia mal perorme sigue saliendo el error,  creo que esta en adOpendinamic y adlockoptimistic pero no estoy segura

[XresH]

Hola, el valor de cn es correcto? verificalo.


Saludos.