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.
Regards:
Mordred
Keep on Coding in the Free World