strTable: Tabellenname
strKennung: Datensatzkennung
Rückgabewert: Recordset; siehe AdoHelp\ADO210.CHM


Public Function Sql_FindDsnByKennung(ByVal strTable As String, ByVal strKennung As String) As String
    While Len(strKennung) < 10
        'Der Inhalt von Kennung ist immer genau 10 Zeichen lang.
        strKennung = " " & strKennung
    Wend
    Sql_FindDsnByKennung = Sql_GetDSN(strTable, "Kennung = '" & strKennung & "'", "DSN")
End Function