errror index out of range
Dim dictionary As New Dictionary(Of String, String)
Dim m_readersc As SqlDataReader = cmdsc1.ExecuteReader()
While m_readersc.Read
If Not m_readersc("cname") = "" Then
dictionary.Add(m_readersc("cid"), m_readersc("cname"))
End If
End While