在TDBGrid的一列中加入控件checkbox第一行不显示的问题 急救!

Question

代码大致如下
With Bus_Check_ShowList.TDBGrid1
        
        Set .DataSource = adoRst2
        'Bus_Check_ShowList.TDBGrid1.DataSource = adoRst2
        .Columns.Item(0).Alignment = dbgCenter
        
        .Columns.Item(0).ValueItems.Presentation = dbgCheckBox
之前
With adoRst2
        .Fields.Append "选择状态", adBoolean, 1, adFldIsNullable
.open
.AddNew
        .Fields("选择状态").Value = 0
运行后表格中第一行显示0 而不显示勾选框,其他行都正常 大家帮帮我!