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

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