Module Common
    Public Server As String
    Public Database As String
    Public Username As String
    Public Password As String
    Public stdDataSet As New DataSet
    Public OleConn As New OleDatabase

    Public Sub DisplayError(ByVal ex As Exception)
        MsgBox("模塊：" & ex.Source & "出現錯誤" & Chr(10) & Chr(13) & "錯誤信息：" & ex.Message)
    End Sub
End Module