[علاء الدين]

Private Sub Text1_Change()
Text1.BackColor = vbWhite
Dim ft
On Error GoTo 11:
prevbookmark = Adodc1.Recordset.Bookmark
ft = Text1.Text
If ft = "" Then
Adodc1.Recordset.Filter = adFilterNone
Else
Adodc1.Recordset.Filter = " country_name like '" & ft & "%'"
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.Bookmark = prevbookmark
End If
End If
Exit Sub
11:
Adodc1.Recordset.Filter = adFilterNone
Text1.BackColor = vbYellow
End Sub

حسب علمي تريد عمل بحث في التكست بوكس من اول حروف وظهور الجمل في قامة اللست