I forgot to make sure that the code knows if there is another row to look at. Amended code:If SQLdr.HasRows Then

Do While SQLdr.Read

SCqryStr = SQLdr.GetString(0) 'SQLdr(SQLdr(0))

SCqryStr = SCqryStr + ","

x = x + SCqryStr

Debug.Print(x)

Loop

ElseThe problem with this now is that it doesn't seem to want to exit the loop.