Visual Basic - Agregar o Quitar Campos

Sabe alguin como puedo agregar o quitar campos de una base de datos en access desde VB 6

De antemano, Gracias por au atencion al leer esta nota

utilizando ADOX

=====================================================
Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\BasedeDatos\mibd.mdb"
Eliminar
cat.Tables.Item("Mitabla").Columns.Delete ("Micampo")
cat.Tables.Item("Mitabla").Columns.Append "Mitabla", adWChar, 5
======================================================