hi !Public Function selectrank() Dim lev As New Hashtable Dim curLevelID As Integer Dim curLevelName As String = ""Dim item Go to the complete details ... Bookmark It