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