可以,有什么问题?
Dim cmd As New SQLCommand '前面已声明过cmd,故此处要屏蔽Dim dt As DataTablecmd.CommandText = "Select 部门 From {联系方式}"dt = cmd.ExecuteReader'cb.ComboList=dt.GetComboListString("部门")