I've only glances at your code but right off the bat I think I might see what the error is. You have 2 exact same Do...Loops. Remove one of them and give it a try. If it still fails let m know and I'll look at the code in detail.

Also, the lines under your comment line 'Log in first Session, User and Table:
These look to be to be initialization strings and should probably come before your Do Until .EOF. Where they are now they will be reset every single time you do a .MoveNext.