cmdSELECT = "SELECT tabelle1.PAT, tabelle1.PER, tabelle1.ADMD, tabelle1.DISD, " _
  & _
                " tabelle2.BIRTHD, tabelle2.GES, tabelle2.NAME, tabelle2.CHR " _
                & _
                "FROM tabelle1 INNER JOIN tabelle2 ON tabelle1.PER =" & _
                "tabelle2.PER" & _
                "WHERE tabelle1.DISD BETWEEN '" & Format$(FDate, "dd-mmm-yy") & _
                "' AND '" & Format$(Now, "dd-mmm-yy") & "'"