module1.bas

来自「这是课程设计时开发的银行储蓄管理系统」· BAS 代码 · 共 19 行

Attribute VB_Name = "Module1"

Public adoCon As ADODB.Connection
Public adoRS As ADODB.Recordset
Public Sub connectDB()
Set adoCon = New ADODB.Connection
adoCon.ConnectionString = "PROVIDER=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb" & ";Persist Security Info=False;"
adoCon.Open
Set adoRS = New ADODB.Recordset
Set adoRS.ActiveConnection = adoCon
adoRS.LockType = adLockOptimistic
adoRS.CursorType = adOpenDynamic
End Sub