Attribute VB_Name = "Const"
'版本號
Public Const VerNum As String = "版本 1.00"
'生成日期
Public Const GenDate As String = "日期 2003-9-26"
'數據源信息常量
Public Const DATABASE As String = "myora"
Public Const DSN As String = "myora"
Public Const DB_USER_NAME As String = "HOTELMAN"
Public Const DB_PASSWORD As String = "HOTELMAN"
 '一次執行connect操作可以訪問數據庫的次數
Public Const CONNECT_LOOP_MAX = 10