Friend Function GetRSIndividuell(SQLString As String) As Recordset
On Error GoTo fehler
    Dim RS As New Recordset
 
    RS.Open SQLString, Conn, adOpenKeyset, adLockOptimistic
 
    If RS.RecordCount > 0 Then RS.MoveFirst
 
    Set GetRSIndividuell = RS
Exit Function
fehler:
    MsgBox "Fehler in GetRSIndividuell: " & Err.Description, vbExclamation
End Function