برای ایجاد کلید جستجو در یک برنامه پایگاه داده که با استفاده از شی data1 نوشته شده از یک text boxو یک command button استفاده می کنیم و کافی است کد های زیر را در آن بنویسیم .
a = Text1
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "nam= ' " + a + " ' "
در خط اول کلمه مورد جستجو در متغیر
a ذخیره می شود در خط دوم اشاره گر رکورد را به رکورد اول می بریم تا جستجو از ابتدا انجام شود و در خط سوم جستجو انجام می شود در این خط nam در واقع نام فیلد مورد جستجو است و شما می توانید با توجه به نام فید خودتان آن را تغییر دهید .
توجه کنید : در خط سوم متن را به vb کپی نکنید چون با فرمت word تایپ شده و دارای کاراکتر های فاصله است و خودتان آن را در vb تایپ کنید در این خط هیچ فاصله ای نداریم .