请问我的listview为何只显示一列呢？

Question

列头有id,name,sex等
但我从数据库里取出来的都显示在listview第一列的id里拉

Answer 1

'添加列头
ListView1.ColumnHeaders.Add , , "0001"
ListView1.ColumnHeaders.Add , , "0002"
ListView1.ColumnHeaders.Add , , "0003"
ListView1.ColumnHeaders.Add , , "0004"
'添加行
Dim itmX As ListItem
Set itmX = ListView1.ListItems.Add()
itmX.Text = "项目1"
For I = 1 To 3
    itmX.SubItems(I) = I
Next I
Set itmX = ListView1.ListItems.Add()
itmX.Text = "项目2"
For I = 1 To 3
    itmX.SubItems(I) = I
Next I
Set itmX = ListView1.ListItems.Add()
itmX.Text = "项目3"
For I = 1 To 3
    itmX.SubItems(I) = I
Next I

Answer 2

比如：
    Dim itmX As ListItem    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
    Rs.Open SqlText, Con, , adLockPessimistic
        If VarType(Rs(0)) <> vbNull Then
            For I = 0 To Rs.Fields.Count - 1
                ListView1.ColumnHeaders.Add , , Rs(I).Name
            Next I
            Do Until Rs.EOF
                Set itmX = ListView1.ListItems.Add()
                itmX.Text = Rs(0)
                For I = 1 To Rs.Fields.Count - 1
                    itmX.SubItems(I) = Rs(I)
                Next I
                Rs.MoveNext
            Loop
        End If
    Rs.Close