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