可以用临时表dt
Dim cmd As New SQLCommandcmd.ConnectionName = "数据源名"Dim dt As DataTableDim cmb As WinForm.ComboBoxcmd.CommandText = "SELECT * From {订单} where 1=2"dt = cmd.ExecuteReader()