access 2003窗体中,如何用代码获取数据库文件的完整路径?

该代码获取当前数据的路径
Application.CurrentProject.Path

应用示例 " 如何在窗体和报表中自动添加照片"
在窗体中添加照片前，请把要添加的照片的名称修改为和表中关键字段值一致的名称，后缀为.JGP
然后在窗体中添加以下代码：

Private Sub Form_Current()
If Dir(Application.CurrentProject.Path & "\photo\" & Me.关键字段 & ".jpg") <> "" Then
Me.Image1.Picture = Application.CurrentProject.Path & "\photo\" & Me.关键字段 & ".jpg"
Else
Me.Image1.Picture = Application.CurrentProject.Path & "\photo\no.jpg"
End If
End Sub

注意事项：
1、代码中关键字段的名称必须和窗体中的关键字段的名称一致。
2、注意你添加的image的编号不一定是image1，要在代码中将image1修改和你创建的image一致的号！

看看！这么半天没有人回答你问题吧？知道为什么吗？是你没有说清楚
在窗体中 用代码 获取……问题太大不确定，不知道要怎么回答你……