Dim Cursor1 As Cursor
Cursor1 = SQL1.Query("SELECT REPORTINGTO FROM fs where name = '" & Spinner1.SelectedItem & "' "
For i = 0 To Cursor1.Size -1
Cursor1.Position = i
strColumn=Cursor1.GetString(ColumnName)
strColumn= strColumn.Replace("[", "")
Spinner2.Add(strColumn)
MgtTxt.Text = strColumn
Next
Cursor1.Close