'Crea tabla, si no existe 
'Se entiende que la base de datos de tabla vinculadas
'es C:\Ruta\Datos.mdb"
'con DAO


Dim Vinculadas As Database
 Dim TablaEmpresa As TableDef
 Dim ExisteTabla As Boolean
 Dim Contando As Integer
 ExisteTabla = False
 Set Vinculadas = OpenDatabase("C:\Ruta\Datos.mdb")
 For Contando = 1 To Vinculadas.TableDefs.Count - 1
  If UCase(Vinculadas.TableDefs(Contando).Name) = "EMPRESAS" Then
   ExisteTabla = True
   Exit For
  End If
 Next
 If ExisteTabla = False Then
  Set TablaEmpresa = Vinculadas.CreateTableDef("Empresas")
  With TablaEmpresa
   .Fields.Append .CreateField("ID", dbAutoIncrField)
   .Fields.Append .CreateField("Nombre", dbText)
  End With
  Vinculadas.TableDefs.Append TablaEmpresa
 End If

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)