Aquí tienes un ejemplo completo que es el que yo uso y funciona sin problemas.
También te comprueba si existe.
Function AñadeTabla()
' CREA UNA NUEVA TABLA
Dim BdAneu As Database, Tabla As TableDef
Dim Columna As Field
Set BdAneu = Workspaces(0).OpenDatabase("C:\MiCarpeta" & "\MiBaseAccess.mdb", True)
Dim TablaCorreos As TableDef
' Recorre la tabla y comprueba si existe
For Each TablaCorreos In BdAneu.TableDefs
' Si existe la tabla, sala de la función
If TablaCorreos.Name = "Correos" Then
Exit Function
End If
Next
' Si no existe la tabla, la crea
Set Tabla = BdAneu.CreateTableDef("Correos")
Set Columna = Tabla.CreateField("Orden", dbInteger, 4)
Tabla.Fields.Append Columna
Set Columna = Tabla.CreateField("Referencia", dbText, 30)
Tabla.Fields.Append Columna
Set Columna = Tabla.CreateField("fecha", dbDate)
Tabla.Fields.Append Columna
BdAneu.TableDefs.Append Tabla
BdAneu.Close
Set BdAneu = Nothing
Set Tabla = Nothing
Set Columna = Nothing
Espero que te sirva.
Un saludo