我只是个对编程有着浓厚兴趣的初学者

				Attribute VB_Name = "Const"
				'版本号
				Public Const VerNum As String = "版本 1.00"
				'生成日期
				Public Const GenDate As String = "日期 2004-8-26"
				'数据源信息常量
				Public Const Conn As String = "Provider=SQLOLEDB.1;Persist Security Info=False;" + _
				   "User ID=sa;PWD=sa;Initial Catalog=hr;Data Source=127.0.0.1"
				'一次执行connect操作可以访问数据库的次数
				Public Const CONNECT_LOOP_MAX = 10