CurrentPath = GetFileName(мой_параметр, "выгрузка", Now)

Public переменная As Long
Public Function мой_параметр () As Long
    мой_параметр = переменная
End Function

Public nCurUser As Long
Public Function CurUserNumber() As Long
    CurUserNumber = nCurUser
End Function

CurrentPath = GetFileNameOnID(CurUserNumber(), "выгрузка", Now)

Function GetFileNameOnID(ID As String, prefix As String, datDate As Date) As String
Dim strString As String
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim i As Integer
Set db = CurrentDb
Set rst = db.OpenRecordset("тбл_пароль", dbOpenTable)

strString = "C:\" & prefix & "_д." & Format(datDate, "dd.mm.yyyy") & "_в." & Format(datDate, "hh.mm") & ".xls"

If rst.RecordCount >  0  Then
    rst.MoveFirst
    For i =  0  To rst.RecordCount -  1 
        If rst!пр_пароль = ID Then
            strString = rst!пр_путь_к_файлу & prefix & "_д." & Format(datDate, "dd.mm.yyyy") & "_в." & Format(datDate, "hh.mm") & ".xls"
        End If
        rst.MoveNext
    Next
End If
    
GetFileNameOnID = strString

End Function

Set rst = db.OpenRecordset("тбл_пароль", dbOpenTable)

Set rst = db.OpenRecordset("SELECT тбл_пароль.* FROM тбл_пароль WHERE ((пр_пароль = ID))", dbOpenSnapshot)

Set rst = db.OpenSnapshot("тбл_пароль", dbOpenTable)

Set rst = db.OpenRecordset("тбл_пароль", dbOpenDynaset, dbSeeChanges)