一个小的企业销售管理系统,希望对大家有所帮助有所帮助

				Attribute VB_Name = "Const"
				'数据源信息常量
				Public Const conn As String = "Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=Contract;Data Source=B8C8C1420CDA458;"
				 '一次执行connect操作可以访问数据库的次数
				Public Const CONNECT_LOOP_MAX = 10