使用VB的listview加载ADO数据库

VB_Listview的ADO数据库连接
1998年6月作者：戈永丰田
原代码如下：
Me.ListView1.View = lvwReport '设置成报表形式
ListView1.GridLines = True
ListView1.FullRowSelect = True '设置整行选择
'添加listview1标头、宽度~~~~~~~~~~~~~~~~~~~~~`
With ListView1
.View = lvwReport
.ColumnHeaders.Add = "ID"
.ColumnHeaders.Add = "信息类型"
.ColumnHeaders.Add = "发生日期"
.ColumnHeaders.Add = "提醒时间"
.ColumnHeaders.Add = "信息摘要"
.ColumnHeaders.Add = "添加时间"
.ColumnHeaders.Add = "信息内容"
.ColumnHeaders.Add = "完成情况"
'--------------设置每行宽度
.ColumnHeaders(1).Width = 800
.ColumnHeaders(2).Width = 1200
.ColumnHeaders(3).Width = 1000
.ColumnHeaders(4).Width = 1200
.ColumnHeaders(5).Width = 1500
.ColumnHeaders(6).Width = 2000
.ColumnHeaders(7).Width = 1500
.ColumnHeaders(8).Width = 1500
End With
'添加listview1数据~~~~~~~~~~~~~~~~~~~~~~
Dim addlist1 As ListItem
Call connectdata '此处为数据库的ADO连接过程,过程程序在后面
bs.Open "select * from message", rs, 1, 1
Do While Not bs.EOF
Set addlist1 = ListView1.ListItems.Add(, , str(bs.Fields("id"))) '将各项数据加入list列表
addlist1.SubItems(1) = IIf(IsNull(bs.Fields("type")), "", bs.Fields("type")) addlist1.SubItems(2) = IIf(IsNull(bs.Fields("sdate")), "", bs.Fields("sdate")) addlist1.SubItems(3) = IIf(IsNull(bs.Fields("stime")), "", bs.Fields("stime")) addlist1.SubItems(4) = IIf(IsNull(bs.Fields("title")), "", bs.Fields("title")) addlist1.SubItems(5) = IIf(IsNull(bs.Fields("adate")), "", bs.Fields("adate")) addlist1.SubItems(6) = IIf(IsNull(bs.Fields("cms")), "", bs.Fields("cms")) addlist1.SubItems(7) = IIf(IsNull(bs.Fields("wms")), "", bs.Fields("wms")) bs.MoveNext
Loop
bs.Close
rs.Close
数据库连接数据:
'*****定义数据库连接参数
Public rs As New ADODB.Connection
Public bs As New ADODB.Recordset
Public sql As String '查询字符串
Public filename As String '数据库名称
Public ctrFi '连接字符串
Public Sub connectdata()'连接数据库过程,此处为ACCESS数据库
filename = App.Path + "\" + "honshV1.mdb"
ctrFi = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & filename
If rs.State = adStateClosed Then
rs.Open ctrFi
Else
rs.Close
End If
End Sub。