Read data from database through sqlreader
Dim CReader As SqlDataReader
Do While CReader.Read()
Dr = CTable.Rows.Add
Dr("StyleID") = CReader.Item("StyleID").ToString()
Dr("StyleCode") = CReader.Item("StyleCode").ToString()
Loop