mdlpub.bas

GUI界面

Attribute VB_Name = "mdlPub"
Option Explicit
Public Const MaxRecNumber = 200
Public Con As ADODB.Connection
Private Const ConStr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source="
Public Sub main()
         Set Con = New ADODB.Connection
         Dim ccc As String
         ccc = App.Path
         If Len(ccc) > 3 Then ccc = ccc + "\"
         ccc = ConStr + ccc + "medical.mdb"
         With Con
             .CommandTimeout = 500
             .ConnectionString = ccc
             .CursorLocation = adUseClient
            .Open
         End With
         frmMain.Show
End Sub