'positive Formulierung
If ADO_FieldExists(meineConnection, "meineTabelle", "meinFeld") then
    'hier folgen die Aktionen, die Du durchführen möchtest, wenn das Feld 
    ' vorhanden ist
Else
    'hier folgen die Aktionen, die Du durchführen möchtest, wenn das Feld nicht 
    ' vorhanden ist
End If
 
'negative Formulierung
If Not ADO_FieldExists(meineConnection, "meineTabelle", "meinFeld") then
    'hier folgen die Aktionen, die Du durchführen möchtest, wenn das Feld nicht 
    ' vorhanden ist
Else
    'hier folgen die Aktionen, die Du durchführen möchtest, wenn das Feld 
    ' vorhanden ist
End If

Dim cat As New ADOX.Catalog

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)