把数据改成本地数据

				Attribute VB_Name = "Const"
				'保存执行SQL语句的字符串
				Public SqlStmt As String
				
				
				'类模块对象
				Public MyDB As New ClsDB
				Public MySalesman As New ClsSalesman
				Public MyCustomer As New ClsCustomer
				Public MyDeliver As New ClsDeliver
				Public MySalseItem As New ClsSalseItem
				Public MyCO As New ClsCO
				
				
				
				
				'定义数组用来装载信息
				Public Arr_Item() As String
				
				
				Public Server As String
				Public User As String
				Public Password As String