Adodc1.RecordSource = "select yjbh,cfdd,kcsl,nfjy from kc_t where yjmc='" & Combo1.Text & "'"
'//------------
set DataGrid1.DataSource = Adodc1
'//------------DataGrid1.Columns(0).DataField = "yjbh"
DataGrid1.Columns(1).DataField = "cfdd"
DataGrid1.Columns(2).DataField = "kcsl"
DataGrid1.Columns(3).DataField = "nfjy"