module1.bas

很小巧的VCD影碟出租系统

Attribute VB_Name = "Module1"
Option Explicit


Public gCon As New ADODB.Connection
Public gRst As New ADODB.Recordset
Public SQL As String

Public gX As Excel.Application

Public Sub OpenDBFile()
gCon.Open "provider=microsoft.jet.oledb.4.0;data source=" _
           & App.Path & "\cdlent.mdb;Mode=ReadWrite;Persist Security Info=True;Jet OLEDB:Database Password=vcdglxt"
End Sub

Public Sub CloseDBFile()
gCon.Close
End Sub

Public Sub OpenRS(SQL As String)
gRst.Open SQL, gCon, adOpenStatic, adLockBatchOptimistic
End Sub


Public Sub CloseRS()
gRst.Close
CloseDBFile
End Sub