各位老师,代码如下:
'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2005-11-25"
'定义数据库连接字符串
'Public Const Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CRM.mdb;"    '设置连接字符串ConnectionString属性
'Public Const Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb\vbstudy\源码01  客户资源管理系统\CRM.mdb;"    '设置连接字符串ConnectionString属性
Public Const Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "crm.mdb"  '设置连接字符串ConnectionString属性"
 
 
 '一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10

如果按各位老师指导的,运行时,"path"加黑印,然后显示"编译错误,要求常数表达式".