با سلام به دوستان ابزارهاي معرفي شده چند تا اشكال داشت و برنامه آقا رضا هم جواب نداد ، اما من خودم اونو نوشتم و ميزارم تا اگه كسي احتياج پيدا كرد ، اينجا باشه .

Private Sub Combo3_Change()
If Combo3.Text = "" Then
While Combo3.ListCount <> 0
Combo3.RemoveItem (0)
Wend
End Sub

Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer)
Dim a, str As String
If KeyCode = 38 Or KeyCode = 40 Then Exit Sub
If KeyCode = 13 Then
a = Combo3.Text
Text8.SetFocus
GoTo 1
End If
If KeyCode = 27 Then
Image3_Click
Else
End If
While Combo3.ListCount <> 0
Combo3.RemoveItem (0)
Wend
Data3.Recordset.FindFirst "Maghsad like '*" & (Combo3.Text) & "*'"
Do While Data3.Recordset.NoMatch = False
Combo3.AddItem Data3.Recordset.Fields("Maghsad")
Data3.Recordset.FindNext "Maghsad like '*" & (Combo3.Text) & "*'"
Loop
If Len(Combo3.Text) = 0 Then
KeyCode = 115
'Combo3.SetFocus
'Combo3.SelStart = 255
End If
Exit Sub
1
Combo3.Text = a
End Sub