modtrains.bas

初学者必看! 作者初学时的作品 一般了,适合初学者看

Attribute VB_Name = "ModTrains"
    Public Str As ADODB.Connection
 
Public Sub DateConnection()
    Set Str = New Connection
    
    Str.ConnectionTimeout = 50
    Str.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Tickets.mdb;"
    Str.CursorLocation = adUseClient
End Sub

Public Sub main()
    DateConnection
    MdiTrain.Show
End Sub