No me funciona y no veo el error:
gsSQL = ""
gsSQL = gsSQL & "SELECT * FROM Auctions WHERE StartingBid < 1000 And Size < 1000000 "
objPagingRS.Open gsSQL, GobjConnect, adOpenStatic, adLockReadOnly, adCmdText
Me da error en la linea 23 y en esta linea esta
objPagingRS.Open gsSQL, GobjConnect, adOpenStatic, adLockReadOnly, adCmdText
La tabla tiene items con StartingBid menor a 1000 y tiene items con size menor a 1000000.
¿Qué pasa? ;) :(