home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD83337292000.psc / basMain.bas next >
Encoding:
BASIC Source File  |  2000-07-29  |  311 b   |  17 lines
  1. Attribute VB_Name = "basMain"
  2. Public g_objCn As New ADODB.Connection
  3.  
  4. Public g_strConnectionString As String
  5.  
  6. Sub main()
  7.     g_strConnectionString = App.Path & "\Northwind.mdb"
  8.  
  9.     g_objCn.Provider = "Microsoft.Jet.OLEDB.4.0"
  10.     g_objCn.Open g_strConnectionString
  11.  
  12.     frmTest.Show
  13. End Sub
  14.  
  15.  
  16.  
  17.