'Dem Formular die RecordSource mitgeben
Forms!frm_va_nach_vmler.RecordSource = "SELECT tbl_format.art," & _
  "tbl_veranst.name, tbl_veranst.Startdatum, tbl_veranst_vm.P_ID," & _
  "tbl_persstamm.nn & ', ' & tbl_persstamm.vn AS vmname, tbl_veranst.ID_VE," & _
  "tbl_halbjahr.halbjahr, tbl_halbjahr.ID_HJ FROM (tbl_halbjahr INNER JOIN (" & _
  "tbl_format INNER JOIN tbl_veranst ON tbl_format.ID_VA = tbl_veranst.ID_VA)" & _
  "ON tbl_halbjahr.ID_HJ = tbl_veranst.halbjahr) INNER JOIN (tbl_persstamm" & _
  "INNER JOIN tbl_veranst_vm ON tbl_persstamm.pid =" & Me!vmler & ") ON" & _
  "tbl_veranst.ID_VE = tbl_veranst_vm.V_ID ORDER BY tbl_veranst.Startdatum" & _
  "DESC;"