Visual Basic - Crear campo en base existente

Quiero crear un campo a una tabla existente

Set TABLA = DB.OpenRecordset("TABLANUEVA")
Set Campo = TABLA.CreateField("NombreCampo", dbText)
TABLA.Fields.Append Campo

Me da el error 438 , el objeto no admite esta propiedad o metodo, me pueden decir como hacerlo o que esta incorrecto, gracias de antemano

'esta es una forma mas facil de crear tablas y campos desde visual basic

dim ssql as string
dim rs as adodb.recotdset
dim nombre_de_tabal as string
dim nombre_de_campo as string
dim tipo_de_dato as string

nombre_de_tabla = "tabla 1"
nombre_de_campo = "campo"
tipo_de_dato = " int"

ssql= " create tabla " & nombre_de_tabla
ssql = ssql & " (" & nombre_de_campo & " " & tipo_de_dato & ")"

set rs = conexcion_de_la_base.execute (ssql. adopenforwardonly)

espero te sirva ..

puedes utilizar
Rs.open="Alter table from (nombre de la base) "("Campo")&""