Option Explicit
Public dbConnection As Connection
Public cntMIS As ADODB.Connection
Public QueryItem As Integer          '查询数据判定变量
Public ConnWZ As ADODB.Connection

Sub Main()
  On Error GoTo LogoError
  
  Set ConnWZ = New ADODB.Connection      '? 什么意思呀,
    ConnWZ.Open "DSN=RS;"                        '? 什么意思呀,
    ConnWZ.CursorLocation = adUseClient      '? 什么意思呀,
   Set db = New Connection                           '? 什么意思呀,
  db.CursorLocation = adUseClient                 '? 什么意思呀,
  db.Open "DSN=RS;"                                    '? 什么意思呀,
  '二维表的数据库连接
  Set db1 = New Connection
  db1.CursorLocation = adUseClient
  db1.Open "PROVIDER=MSDataShape;DSN=RS;"
   
  MsgTitle = "提示"
  
  RSGL.Show
  
LogoOK:
            Exit Sub
LogoError:
            Beep
            MsgBox "网络故障或没有与网络进行连接，请检查计算机的网络连接或与网络管理员联系。", vbOKOnly + vbQuestion, "人事信息管理系统"
End Sub