Dim MyWork As DAO.Workspace
Dim ExtDb As DAO.Database
Dim MyTable As DAO.TableDef
Dim MyFld As DAO.Field
Dim Flag As Long
Set MyWork = DBEngine.Workspaces( 0 )
Set ExtDb = MyWork.OpenDatabase("d:\testik.mdb")
Flag =  0 
For Each MyTable In ExtDb.TableDefs
 If MyTable.Name = "TEST" Then
                 Flag =  1 
                 Exit For
 End If
Next MyTable
If Flag =  0  Then
Set MyTable = ExtDb.CreateTableDef("TEST")
Set MyFld = MyTable.CreateField("KKK", dbLong)
MyTable.Fields.Append MyFld
ExtDb.TableDefs.Append MyTable
Set MyFld = Nothing
Set MyTable = Nothing
End If
ExtDb.Close
Set MyWork = Nothing