Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'定义一个连接对象和一个查询返回结果集
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
'创建两个对象
cn.ConnectionString = "driver=SQL Server;server=IAN-PC;uid=sa;pwd=kingdee;database=CRM" cn.Open
Dim sql As String
sql = "select * from ian_1"
rs.Open sql, cn
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "选择", 1000
ListView1.ColumnHeaders.Add , , rs(0).Name, 1000
ListView1.ColumnHeaders.Add , , rs(1).Name, 1000
ListView1.ColumnHeaders.Add , , rs(2).Name, 1000
ListView1.ColumnHeaders.Add , , rs(3).Name, 1000
ListView1.ColumnHeaders.Add , , rs(4).Name, 1000
'表头名称
ListView1.GridLines = True '显示网格
ListView1.Checkboxes = True '显示复选框
'ListView1.FullRowSelect = True 整行记录全选上
Dim a As Integer
a = rs.RecordCount + 1
'MsgBox a
Dim x As Integer
x = 1
'取得rs的记录集
While Not rs.EOF And Not rs.BOF '如果记录集没有读完继续读
ListView1.ListItems.Add , , x '第一行选择复选框
ListView1.ListItems(x).SubItems(1) = rs(0).Value
ListView1.ListItems(x).SubItems(2) = rs(1).Value
ListView1.ListItems(x).SubItems(3) = rs(2).Value
ListView1.ListItems(x).SubItems(4) = rs(3).Value
ListView1.ListItems(x).SubItems(5) = rs(4).Value
x = x + 1
rs.MoveNext '下一行Wend
MsgBox "dd"。