Dim cmd As New SQLCommand Dim cmb As WinForm.ComboBox cmd.ConnectionName = "nwnd" cmd.CommandText = "Select * From {表名} Where [主键] Is Null " Dim dt As DataTable = cmd.ExecuteReader() For Each dc As DataCol In dt.DataCols If dc.Name.Contains("姓名") Then MessageBox.Show("有姓名列") End If Next