[VB6] Controllo esistenza campo in una tabella

[buburp]

Devo controllare se in una tabella c'è un determinato campo e, in caso contrario crearlo.
Ho provato con

Dim EsisteCol as Column
Set EsisteCol = Catalogo.Tables("Numeri").Columns(nomecampo)

ma mi dà errore. C'è una soluzione alternativa?

[buburp]

Mi spiego meglio.
Per sapere se una tabella sta in un database mi basta scrivere

Dim Catalogo As ADOX.Catalog
Dim EsisteTab As Table
Set EsisteTab = Catalogo.Tables(nometabella)

Se questa non esiste, riceverò un errore 3265 che posso "trappare".
E fin qui ci siamo.
Il problema è che non riesco a fare una cosa analoga per determinare se un campo è presente in una tabella.
Ho provato con

Dim Catalogo As ADOX.Catalog
Dim EsisteCol As Column
Set EsisteCol = Catalogo.Tables("Numeri").Columns(nomecampo)

ma ricevo COMUNQUE l'errore 3265.
Dove sbaglio?