Private Sub Combo0_Change()
f = Combo0.Text
If Len(f) = 0 Then
Combo0.RowSource = "select field from table1"
Else
Combo0.RowSource = "select field from table1 where field like '*" & f & "*'"
End If
Combo0.Dropdown
End Sub
Private Sub Form_Load()
Combo0.SetFocus
combo0.AutoExpand =false
Combo0_Change
End Sub