Attribute VB_Name = "mdCnn"
Option Explicit

Public cnn As New ADODB.Connection '數據庫連接
Public connStr As String
Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Public Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
Public Sub showMsg(msg As String, msgType As Integer)
    '錯誤提示
    If (msgType = 0) Then
    
        MsgBox msg & vbCrLf & vbCrLf & "詳細信息如下：" & vbCrLf & vbCrLf & "錯誤號碼:" & Err.Number & vbCrLf & "錯誤代碼:" & Err.Source & vbCrLf & "錯誤描述:" & Err.Description, vbOKOnly + vbCritical, "錯誤 "
    End If
     '信息提示
    If (msgType = 1) Then

        MsgBox msg, vbOKOnly + vbInformation, "提示 "
        
    End If
End Sub

Sub Main()

    frmODBCLogon.Show
    
End Sub