strTable: Tabellenname der Haupttabelle
strLinkDsn: Datensatznummer der Haupttabelle z.B. AD, Obj ...
Rückgabewert: durch Komma getrennte Liste von mehreren Merkmal-Dsn's (DSNCommaList) oder Leer


Public Function Mkm_Get(ByVal strTable As String, ByVal strLinkDsn As String) As String
    Dim strResult As String
    Dim strSQL As String
    Dim rs As Recordset

    '-- Merkmale kopieren
    strResult = ""
    strSQL = "SELECT * FROM " & strTable & "Mkm WHERE Link_dsn='" & strLinkDsn & "'"
    Set rs = FF_GetRecordset(strSQL)
    While rs.EOF = False
        strResult = strResult & "," & rs("Mkm_Dsn")
        rs.MoveNext
    Wend
    If strResult <> "" Then
        strResult = Mid(strResult, 2)
    End If
    Mkm_Get = strResult
End Function