Sub Process_Globals
'for general Lists use
Type Element (ItemName As String, Val As String)
End Sub
Dim LanguagesID As List
Dim LngItem As Element
If LanguagesID.IsInitialized=False Then
LanguagesID.Initialize
End If
LngItem.ItemName = SQLReader.GetColumnName(1)
LngItem.Val = SQLReader.GetString("recID")
LanguagesID.Add(LngItem)
//then to retrieve
LngItem = LanguagesID.Get(cmbLanguage.SelectedIndex)
msgbox(LngItem.ItemName,"test")
msgbox(LngItem.Val,"test")