"SELECT Nr as Nr,Status as Status,Datum as Datum,Anrede as Anrede,
AES_DECRYPT(Name, '" & gc_Pass & "') as Name,AZ as AZ,Berater as Berater,
Debitor as Debitor,Gl as Gl,SHoe as SHoe,Betrag as Betrag,Anspruch as Anspruch,
Amt as Amt,Rechnung as Rechnung,Antwort as Antwort,Bem as Bem FROM _
  t_shb_bux_bagis2 Where Hide = " & 
mf_Hide & " And Berater = '" & gf_Kurz & "' AND Jahr = '" & gf_Year & "' ORDER" & _
"BY Name ASC"

lr_Read.Sort = "[Debitor] Asc"

Real programmer do not comment their code;
what?s hard to write should be hard to read