modmain.bas

为一个公司

Attribute VB_Name = "modMain"
Option Explicit

Public cnnMain As New ADODB.Connection
Public rstMain As New ADODB.Recordset
Public btnindex

Public gstrUser As String '当前登录用户
Public gintLevel As Integer '用户级别

'ado对象连接本地数据库 .\data\data.mdb
Public Sub ConnectLoadDB()
  With cnnMain
    If .State = adStateOpen Then .Close
     .Provider = "Microsoft.Jet.OLEDB.4.0"
     .Open App.Path & "\data\data.mdb"
  End With
  With rstMain
    If .State = adStateOpen Then .Close
    Set .ActiveConnection = cnnMain
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
  End With
End Sub