Private Sub Form_Load()
Combo1.AllowAutoCorrect = False
Dim strSQL As String
strSQL = "SELECT * FROM tt WHERE Naziv Like '**'"
Me.Combo1.RowSource = strSQL
End Sub
Private Sub Combo1_Change()
Dim strSQL As String
strSQL = "SELECT * FROM tt WHERE Naziv Like '*" & Me.Combo1.Text & "*'"
Me.Combo1.RowSource = strSQL
Me.Combo1.Dropdown
End Sub