sSortiertNach = " Order by TeleProt_BenutzerKuerzel"
Krit = "BenutzerKuerzel like '" & z & "'"
 
.CommandText = "Select * From TelefonProtokollAlles Where TeleProt_Datum >" & _
  "Date() - " & Krit & frmLOTP.txtTage.Text & "And TeleProt_KundenID =" & _
  plSQLKunden_Id & sSortiertNach