Visual Basic - Crear Campo en Tabla Existente

Hola:
Necesito agregar en Runtime Algunos Campos a una Tabla, pero con ADO.
He visto algunos ejemplos, pero solo funcionan al crear un nueva tabla.
Gracias
*******************
Private Conn As ADOX.Catalog
Private Tabla As ADOX.Table
Set Conn = New ADOX.Catalog
Conn.ActiveConnection = "Base_ODBC"
strTabla = InputBox("Ingrese el Nombre de la Tabla", "Tabla", "Personas")
strCampo = InputBox("Ingrese el Nombre del Nuevo Campo", "Campo", strCampo)

Set Tabla = New ADOX.Table
Tabla.Name = strTabla
With Tabla
.Columns.Append strCampo, adVarWChar, 50
.Columns(strCampo).Attributes = adColNullable
.Columns.Refresh
Conn.Tables.Append Tabla
******************