VB6.0 DataGrid怎么在绑定的数据后面增加一列CheckBox的选择列

VB6.0 DataGrid如何在绑定的数据后面增加一列CheckBox的选择列？
如题，我在一个datagrid绑定数据后，想加一列CheckBox以便选择这些数据，然后将选择返回给另一个窗体使用，要怎么写代码。

这是绑定SQL的代码

Private Sub loadbomCopyforWeb()

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset


Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset


conn.ConnectionString = "driver={sql server};server=test;uid=tt;pwd=123;Database=test"

conn.ConnectionTimeout = 10

conn.Open

Dim str As String

str = "SELECT TOP 10 FModel,FName,FNumber FROM t_ICItem"

rs.Open str, conn, adOpenKeyset, adLockOptimistic, adCmdText

If rs.RecordCount > 0 Then

End If

For i = 0 To rs.RecordCount - 1

'Print rs.Fields(0), rs.Fields(1), rs.Fields(2)

rs.MoveNext

Next

'conn.Close


DataGrid1.ClearFields

Set DataGrid1.DataSource = rs

'DataGrid1.Visible = False

DataGrid1.Refresh

'conn.Close

setDatagrid (DataGrid1)

End Sub

这是我想增加一列为Checkbox的方法，但是好像没有这一项，调用还报错：

Private Sub setDatagrid(dg As datagrid)


Dim col As Column

Set col = dg.Columns.Add(dg.Columns.Count)

With col

.DataFormat = bool

.Width = 1000

.Caption = "Choose"

.Button = True

.CellValue = False

.NumberFormat = Adodc1.Recordset.Fields("FName").Name


End With



End Sub

------解决思路----------------------
datagrid这个控件好像没有checkbox。你得换一个控件，比如listview