home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / allan2089911182007.psc / POSforbayshore / connection.bas < prev    next >
BASIC Source File  |  2007-11-07  |  307b  |  11 lines

  1. Attribute VB_Name = "connection"
  2. Global con As New ADODB.connection
  3. Global rst As New ADODB.Recordset
  4. Global rst1 As New ADODB.Recordset
  5.  
  6. Public Sub connect()
  7. Set con = Nothing
  8. con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\POSforbayshore\database.mdb;"
  9. con.Open
  10. End Sub
  11.