Dim Cn As ADODB.Connection, Catlog As ADOX.Catalog, _
                                        objTable As ADOX.Table, _
                                        objKey As ADOX.KeyTypeEnum, _ 
                                        idx As ADOX.Index
 
            Cn = New ADODB.Connection
            Catlog = New ADOX.Catalog
            objTable = New ADOX.Table
	    Dim filePath As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=C:\...\db.mdb;Persist Security Info=False"
            Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath)
            Catlog.ActiveConnection = Cn
            objTable.Name = "TmpTable"
            objTable.ParentCatalog = Catlog
            objTable.Columns.Append("Nummer", ADOX.DataTypeEnum.adInteger)
            objTable.Columns("Nummer").Properties("Nullable").Value = False
            objTable.Columns.Append("Nachname", ADOX.DataTypeEnum.adVarWChar, _
              10)
            objTable.Columns.Append("Vorname", ADOX.DataTypeEnum.adVarWChar, 10)
   	    objTable.Columns("Nummer").Properties("Autoincrement").Value = True
            objTable.Keys.Append("PrimaryKey", ADOX.DataTypeEnum.adInteger, _
              "Nummer")
            Catlog.Tables.Append(objTable)
            objKey = Nothing
            objTable = Nothing
            Catlog = Nothing
            Cn.Close()
            Cn = Nothing