Mhh, try to halt the code in debug mode (maybe at line: rs.Find "Number = 1") and monitor the rs object variable. Open up the fields collection and have a look at the individual field names.
Or try if rs.Fields("Field Name") helps.
I have tried rs.Fields("Field Name") with no luck.
Thought it was a good idea to try to look through the fields collection at the individual names.
So I did except I'm at home now and this is where the plot thickens.
The code works as you would expect (after removing the jgg.[new Val] = txtVal, a line I added later and forget to remove in the post).
At home SQL Server is just running off HOMEPC but why does it work here and why not on our server???