vb6.0创建数据库db_kfgl1.mdb

‘引用Microsoft DAO 3.6 Object Library

Private Sub Form_Load()

Set MyWs = DBEngine.Workspaces(0)

Set MyDB = MyWs.CreateDatabase("E:\vba\TM（视频讲解及实例源程序）\sl（实例源程序）\19\2\db_kfgl1.mdb", dbLangGeneral)

End Sub