Ok so I think I've solved this one withIf SQLdr.HasRows Then

While SQLdr.Read()

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

SCqryStr = SCqryStr + ","

x = x + SCqryStr

End While

End If