I have just looked at an old program I made in the same way and it has the same line of code:

Res.Open "SELECT * FROM Kunder WHERE Kundenr=" & Combo1.Text, Con, adOpenDynamic

This now makes me wonder if the problem is some where else because this program work fine with this line in to :S