'Search Name
On Error Resume Next
If NameTxt.Text = "" Then
Adodc1.Refresh
Else
Adodc1.Recordset.Filter = "FName =' " + NameTxt.Text + " ' "
Adodc1.Recordset.Filter = " FName like '" & NameTxt.Text & "*'"
End If
'Cmd Refresh Enabled is True
CmdRefresh.Enabled = True
ببین این کد مال موقعیه که کاربر تعیین می کنه که جستجو بر حسب نام (First Name) باشه.
بعد که جستجو رو میزنه سمت چپ فرم اطلاعاتش نشون داده میشه(نام و نام خانوادگی و رشته وپایه...).پایین فرم هم یه Data Grid هستش ولی جستجو که زده میشه بعضی اطلاعاتی که سمت چپ فرم وجود داره + بعضی از فیلدهای Data Grid پاک میشه.