module1.bas

来自「利用VB和ACCESS开发的一个学生管理系统适用于初学者参考」· BAS 代码 · 共 19 行

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

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

Public Sub Main()
    Call DateConnection
    
    frmMain.Show
End Sub