It is this line of code:

Res.Open "SELECT * FROM Computer WHERE ComputerName=" & Combo1.Text, Con, adOpenDynamic

and if I write it as:

Res.Open "SELECT * FROM Computer", Con, adOpenDynamic

Then it works fine BUT then it doesn't display the correct "RoomName" for the correct "ComputerName" because there is nothing to join them.

I think that its to do with the & Combo1.Text part and have tried it with single and double quotes but it still complains and doesn't work.