home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / msdn / VSTUDIO / MSDE / msde_vb6.exe / GENERAL.bas < prev    next >
BASIC Source File  |  1999-04-30  |  480b  |  30 lines
  1. Attribute VB_Name = "GENERAL"
  2. Option Explicit
  3.  
  4. Enum ConnectionType
  5.     ADO = 0
  6.     DAO = -1
  7. End Enum
  8.  
  9. Global ADOConnectionString As String
  10. Global DAOConnectionString As String
  11. Global LoginSucceeded As Boolean
  12. Global SelectedConnectionType As ConnectionType
  13.  
  14. Global vbQuote As String
  15.  
  16.  
  17. Sub Main()
  18.  
  19.     vbQuote = Chr$(34)
  20.     
  21.     ' Show login screen
  22.     frmLogin.Show vbModal
  23.     
  24.     If Not LoginSucceeded Then End
  25.     
  26.     frmMain.Show
  27.     
  28. End Sub
  29.  
  30.