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

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