mmain.bas

大量优秀的vb编程

Attribute VB_Name = "mMain"
Option Explicit

Public Sub Main()
On Error GoTo HandleError
    
    Load frmSQL
    Load frmConnect
    frmConnect.Show
    Exit Sub
    
HandleError:
    HandleErr "mMain.Main"
End Sub

Public Sub HandleErr(RaisedIn As String)
    MsgBox "The error " & Err.Description & vbCrLf & _
           "was raised by " & RaisedIn & vbCrLf & vbCrLf & _
           "The source of the error was " & Err.Source & vbCrLf & _
           "with an error number of " & Err.Number, vbExclamation Or vbOKOnly, App.Title
End Sub