Pon un textbox y alli escribes lo que quieres buscar, en un boton codificas esto:
Dim Cadena as String
Cadena=\"Select * From TuTabla Where Codigo=\'\" & Trim(Text1.text) &\"\'\"
Set Rs = Bd.OpenRecordset(Cadena, dbOpenDynaset)
y luego haces el enlace con el grid y te debe mostrar el resultado de tu busqueda, logicamente lo que escribas debe tener relacion con el campo , alli es donde debes poner tus restriccionres.