tsdata.bas

图书管理系统．一个具有多功能的图书馆里系统

Attribute VB_Name = "tsdata"
   'Public db As Connection
   Public db As New ADODB.Connection
   Sub main()
   
    sConnect = "Provider=MSDASQL.1;Persist Security Info=False;User ID=admin;PassWord=ypypypyp;Data Source=MS Access Database;Initial Catalog=" & App.Path & "\library.mdb"
    db.Open sConnect
    FrmMain.Show
   End Sub