module1.bas

VB餐馆查询系统 一个很不错的系统

Attribute VB_Name = "Module1"
Option Explicit
Public Str As ADODB.Connection

Public Sub DateConnection()
    Set Str = New ADODB.Connection
    
    Str.ConnectionTimeout = 900
    Str.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Restaurantinfo.mdb"
    Str.CursorLocation = adUseClient
End Sub

Public Sub main()
    DateConnection
    
    frmHotlFind.Show
End Sub