Keskustelu: Ohjelmointikysymykset: VB6: BindingCollection ja Type mismatch (error 13)?

Heps!
Teen MSDN:stä löytyvää VB esimerkki-ohjelmaa, joka koostuu lomakkeesta, TextBoxista, CommandButtonista. Lisäksi projektiin kuuluu DataSourcena toimiva Luokka.
Viittaukset tarvittaviin kirjastoihin, jotka ovat MS ADO 2.0 ja MS Data Binding Collection, on tehty.

Ohjelma on simppeli ja copy-pastella kopioitu suoraan MSDNstä. Eli mistä johtuu käynnistettäessä virhe: Type mismatch ?

Lause, jossa virhe sijaitsee:

objBindingCollection.Add txtConsumer, "Text", "Directory"

Kyseinen funktio ObjectBrowserilla katsottuna:

Function Add(Object As Object, [PropertyName As String], [DataField As String], [DataFormat As IDataFormatDisp], [Key As String]) As Binding

Funktiolle vietävät parametrit:

txtConsumer = TextBox = Objekti
"Text" = String
"Directory" = String

Eli mikä mättää...?