No consigo Buscar un registro en una db Access

[fradve]

Considera el siguiente ejemplo:


Tu botón para consultar tendría lo siguiente:

Código vb:

Private Sub Command1_Click()
       Dim consulta as Integer
       Adodc1.Refresh
       consulta=InputBox("INGRESE LA CODIGO ARANCELARIO: ")     
       Adodc1.Recordset.Filter = "codigoArancelario = " & consulta
   End Sub
 

Entonces en el datagrid constara la información del registro que coincidió y sino puedes el grid querdará en blanco, y el resto es lo mismo pues puedes realizar diferentes filtros con los diferentes campos.