I need help guys.

I designed Grid to hold data using ComponentOne TdbGrid and in first column I put TdbDropDown to show selection for data.
What I really want, how can I filter combobox data each time user input each letter, the data must filter based on LIKE query, so only what query filtered will be shown on combobox dropdown
\I tried filter but failed, and i think I almost there, only maybe what Event I should put my code

Code:
On Error GoTo BCEErr
    Dim TempTxt As String
    Select Case ColIndex
        Case 0
        Select Case bJenis
        Case 0            
                TempTxt = "SELECT fID,fNameGoods FROM tbGoods  ORDER BY fNameGoods"
                Set BarangRS = dB.Execute(TempTxt)
                BarangRS.Filter = "fNameGoods LIKE '" & tgBeli.Columns(0).Text & "'"
                Set TDD.DataSource = BarangRS           
        End Select
    End Select
    Exit Sub
BCEErr:
    MsgBox err.Description, vbCritical
I put inside BeforeColEdit event and ColEdit event, no result as I expected

Please help