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.