OK, I tried lagbolt's solution and I ended up with the following:
Private Sub AuftragAbgleichen()
Dim qdf As DAO.QueryDef
Dim sqlStr As String, sAuftragAlphanum As String
Dim ortId As Long
ortId = Nz(cmb_Orte.Value)
Set qdf = CurrentDb.CreateQueryDef("", _...