Adodc1.Recordset.Filter = "CodigoArancelario='" & consulta & "'"
Adodc1.Recordset.Filter = "CodigoArancelario=" & consulta & ""