Rückgabewert: DSN des Benutzermerkmals oder Leer


Public Function BEN_Mkm() As String
    Dim rsMKM As Recordset

    Set rsMKM = m_oApplication.MKM_Find("Benutzer='" & FF_CurrentUserRS("Login_Name") & "'", "Touch")
    If rsMKM.EOF = False Then
        BEN_Mkm = m_oUtil.k(rsMKM("Dsn"))
    Else
        BEN_Mkm = ""
    End If
End Function