用ListView应该能行，但每一行的最前面是一个复选框而不是这个象按纽一样的东东

DataGrid控件

'绑定数据源
Dim conn As ADODB.Connection
Dim rs  As ADODB.Recordset

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source='yourmdb';JET OLEDB:Database Password='yourpwd';"
Set rs = New ADODB.Recordset
[color=red]rs.CursorLocation = adUseClient[/color]
rs.Open "select * from table", conn
Set DataGrid1.DataSource = rs