Thanks Paul,
i had misppeled the form name and now I have got rid of the message.
I have coded the information like this:
Sub ttt()
DoCmd.OpenQuery "qry_MS TNA (Comp)", , acReadOnly
DoCmd.OpenQuery "qry_MS TNA (Series)", , acReadOnly
DoCmd.OpenQuery "qry_MS (1) Holdings", ...