Visual Basic - las tablas de vb6

con el siguiente codigo se supone que debe crearse una base de datos con sus respectivas tablas:

Option Explicit
Dim basededatos As Database

Dim tabla As TableDef
Dim tabla2 As TableDef

Dim columna As Field
Dim columna2 As Field
-----------------------------

Private Sub Form_Load()
Set basededatos = DBEngine.Workspaces(0).CreateDatabase(App.Path & "\HOJA.MDB", dbLangSpanish)

'--------------------------------
'crea la tabla HC
Set tabla = basededatos.CreateTableDef("HC")

'poner campos...
Set columna = tabla.CreateField("HOJA", dbLong, 10) 'numero de la hoja de carga
tabla.Fields.Append columna
.
.
.
'añade la tabla a la base de datos...
basededatos.TableDefs.Append tabla
'--------------------------------

'--------------------------------
'crea la tabla REVISION DE REPORTES
Set tabla2 = basededatos.CreateTableDef("REVISIONDEREPORTES")

'poner campos...
Set columna2 = tabla2.CreateField("REPORTE", dbLong, 10)
tabla.Fields.Append columna2
.
.
.
'añade la tabla a la base de datos...
basededatos.TableDefs.Append tabla2
'---------------------------------

.
.
.
luego todas las siguientes tablas...
.
.
.

'-------------------
'cierra la base de datos....
basededatos.Close
'----------------

sin embargo al ver la base en access solo se crea la primera tabla con todos sus campos y especificaciones completas, a pesar de que en la revision paso a paso se ve que crean todas las tablas...

¿alguien puede decirme porque no se crearon las otr