Вот примеры функций на клиенте

Public Function DbName()
Dim S1 As ADODB.Recordset, Cn As New ADODB.Connection

Set Cn = CurrentProject.Connection
Set S1 = New ADODB.Recordset

SQL = "SELECT DB_Name() AS N"
S1.Open SQL, Cn

DbName = S1!N
Set Cn = Nothing
Set S1 = Nothing

End Function


Public Function UserName()
Dim S1 As ADODB.Recordset, Cn As New ADODB.Connection

Set Cn = CurrentProject.Connection
Set S1 = New ADODB.Recordset

SQL = "SELECT SUSER_SNAME() AS N"
S1.Open SQL, Cn

UserName = S1!N
Set Cn = Nothing
Set S1 = Nothing

End Function

Ну и так далее