module1.bas

visual basic 本系统对初学者很有帮助。

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_wyfy.mdb;Persist Security Info=False"
End Function