Dim MyTable     As TableDef, MyField       As Field
                  
                  Dim MyDatabase     As Database
                  
                  Dim MyTable1     As TableDef, MyField1      As Field
                  
                  Set MyDatabase = CreateDatabase(App.Path + "\Trade.mdb", dbLangGeneral, dbEncrypt)
                  Set MyTable = MyDatabase.CreateTableDef("DIP")
                  
                  
                  Set MyField = MyTable.CreateField("APPLNAME", dbText, 100)                     '?ヘ?
                  MyTable.Fields.Append MyField
                  Set MyField = MyTable.CreateField("SERVERNAME", dbText, 15)                   '狝?竟?
                  MyTable.Fields.Append MyField
                  Set MyField = MyTable.CreateField("LOGONNAME", dbText, 15)                     '?誹?ノ?
                  MyTable.Fields.Append MyField
                  Set MyField = MyTable.CreateField("PASSWORD", dbText, 15)                       '?誹?
                  MyTable.Fields.Append MyField
                  Set MyField = MyTable.CreateField("DATANAME", dbText, 15)                       '?誹??
                  MyTable.Fields.Append MyField
                  
                  '这里怎么换行写下一个行数据.感谢?                  
                  MyDatabase.TableDefs.Append MyTable
                  
                                   
                  
                  
                                    
                  
                  'MyDatabase.NewPassword   "",   "allway"
                  MyDatabase.Close