请问VB6中ListView控件如何和数据库绑定，比如说ADODC控件

Dim link1 As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim pubdatapath As String

Sub opendatabase(datapath As String)'打开数据库函数

If link1.State = 1 Then '如果以连接过，则关闭，初始化下次事务

link1.Close: list2.ListItems.Clear: list2.ColumnHeaders.Clear: c.Clear: list1.ListItems.Clear

End If

link1.ConnectionString = "Provider=microsoft.jet.oledb.4.0data source=" &datapath

link1.Open

pubdatapath = datapath

Set biaoming = link1.OpenSchema(adSchemaColumns)'创建数据库记录集

tablename = ""

Do Until biaoming.EOF

If biaoming("table_name") <>tablename Then '列出所有表

tablename = biaoming("table_name")

list1.ListItems.Add , , tablename

End If

biaoming.MoveNext

Loop

Set biaoming = Nothing

menu1.Enabled = True

list1_MouseUp 1, 0, 10, 10

End Sub

Private Sub Command1_Click() '打开数据库

d.DialogTitle = "打开一个数据库文件进行浏览"

d.InitDir = App.Path

d.FileName = ""

d.Filter = "Access数据库(mdb后缀,推荐格式)|*.mdb"

d.ShowOpen

If d.FileName = "" Then Exit Sub

opendatabase d.FileName

End Sub

private void FrmXMLShow_Load(object sender, EventArgs e)

{

// listview样式设置

listView1.GridLines = true

listView1.FullRowSelect = true

listView1.View = View.Details

listView1.Scrollable = false

listView1.MultiSelect = false

listView1.HeaderStyle = ColumnHeaderStyle.Clickable

// 表头设置

listView1.Columns.Add("ID", 50, HorizontalAlignment.Center)

listView1.Columns.Add("姓名", 50, HorizontalAlignment.Center)

listView1.Columns.Add("性别", 50, HorizontalAlignment.Center)

listView1.Columns.Add("年龄", 50, HorizontalAlignment.Center)

listView1.Columns.Add("学校", 150, HorizontalAlignment.Center)

listView1.Columns.Add("联系电话", 150, HorizontalAlignment.Center)

foreach (Information i in ixs.ReadAllInformation())

{

ListViewItem item = new ListViewItem()

item.SubItems.Clear()

item.Text = i.Id

item.SubItems.Add(i.Name)

item.SubItems.Add(i.Gender)

item.SubItems.Add(i.Age.ToString())

item.SubItems.Add(i.University)

item.SubItems.Add(i.Phone)

listView1.Items.Add(item)

}

}

---