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 >
Wrap
BASIC Source File
|
2007-11-07
|
307b
|
11 lines
Attribute VB_Name = "connection"
Global con As New ADODB.connection
Global rst As New ADODB.Recordset
Global rst1 As New ADODB.Recordset
Public Sub connect()
Set con = Nothing
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\POSforbayshore\database.mdb;"
con.Open
End Sub