Dim players As String
resultsfromdb2 = SQLmain.ExecQuery("SELECT * FROM main_profiles WHERE player_team='" & id & "' ORDER BY player_name ASC")
If resultsfromdb2.RowCount > 0 Then
For T = 0 To resultsfromdb2.RowCount - 1
resultsfromdb2.Position = T
Dim player As String
player = resultsfromdb2.GetString("player_name")
players = players & player & ", "
Next
members_list.Text = players
Else
End If
resultsfromdb2.Close