module1.bas

vb access客房管理系统经典实例添加了模块与access连接

Attribute VB_Name = "Module1"
Public conn As ADODB.Connection
Public Sub lj()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Total.mdb;Persist Security Info=False"
conn.Open
End Sub