I have adapted the code (change) on de combobox for my database. If I type one letter, my code gives me the first title from my list and not alle enteries with that letter in it. Also the WhereStr and combobox.text gives me that result.
Whats happing (Did I overlook(?

Details

Private Sub cbozoekfilm_Change()

    Dim WhereStr As String
    
    If IsNull(cbozoekfilm.Text) Or cbozoekfilm.Text = "" Then
        WhereStr = ""
    Else
        WhereStr = " WHERE titel LIKE ""*" & cbozoekfilm.Text & "*"" "
    End If
    
    Debug.Print cbozoekfilm.Text
    Debug.Print WhereStr
    
    cbozoekfilm.RowSource = "SELECT filmID, titel " & _
        "FROM Qtitellijst " & _
        WhereStr & _
        "ORDER BY titel"
    
    cbozoekfilm.Dropdown
    Debug.Print cbozoekfilm.RowSource

End Sub
Copy