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


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