module1.bas

来自「物业管理系统在一本书上的数据光盘」· BAS 代码 · 共 11 行

Attribute VB_Name = "Module1"
Option Explicit
Public adors As New ADODB.Recordset
Public Function cn() As ADODB.Connection    '定义函数
  '返回一个数据库连接
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
End Function