Visual Basic - CREAR UNA TABLA EN VB EN TIEMPO DE EJECUCION

HOLA
Alguien sabe como se crea una TABLA con los mismos campos de una tabal existente en access 97 en vb5 en tiempo de ejecucion, y como puedo pasar los datos de la TABLA llena existente a la tabla vacia que acabo de crear y luego grabarla y sustituirla con el nombre de la tabla vieja y borrar la tabla vieja.
Si saben algo porfavor compartanmelo
Gracias de antemano.

Si estás utilizando ADO lo puedes hacer con ADOX:

Dim objCatalog As Catalog, objTable As Table

Set objCatalog = New Catalog
Set objCatalog.Connection = TuObjetoConnection

Set objTable = New Table
objTable.Name = "MiTabla"
objTable.Columns.Append "Columna1", adInteger
objTable.Columns.Append "Columna2", adInteger
objTable.Columns.Append "Columna3", adVarChar, 50
objCatalog.Tables.Append objTable