Attribute VB_Name = "modStartup"
Option Explicit

Public goEnv As New clsEnv

Public gorsgetkaraoke As ADODB.Recordset


Public Sub Main()
    
    Set goEnv = New clsEnv
    goEnv.AccessConnect
    
    Load frmkaraoke
    frmkaraoke.Show

End Sub

Public Sub TerminateProgram()

    Set goEnv = Nothing
    
End Sub