module1.bas

超市商品管理系统

Attribute VB_Name = "Module1"
Public conn As New ADODB.Connection
Dim connectionstring As String
 connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & "data source=111.mdb"
 conn.Open connectionstring