主题：Sql查询的问题

参考代码

Dim cmd As new SQLCommand
cmd.CommandText = "select cdefinename from defineset where ctype='客户'"
Dim dt As DataTable = cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
    msgbox(dr("cdefinename"))
Next