www.pudn.com > BeiJingBusSerchSystem.rar > main.bas, change:2008-11-25,size:309b


Attribute VB_Name = "mdlMain" 
Public Conn As String 
Dim strDB As String 
 
Sub Main() 
    strDB = "\bus.mdb"    '数据库位置 
    Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ 
    App.Path + strDB + ";Persist Security Info=False"   '数据库连接字符串 
    frmMain.Show  '显示主窗体 
End Sub