listview 控件显示access数据库中的表格！

Question

呵呵，各位看帖的，先谢过了！主要是我看上了listview控件的checkbox的显示属性，想把access数据库中的表通过listview控件显示出来，请问，熟悉此操作的大虾能否给个代码？那个listviwe控件在msdn中的指导，小丫头没看明白！但愿100分能给出去，等待了！

Answer 1

你运气太好了点，我前几天做的！
  控件：
    ProgressBar1 
    ListView1
    Data1
    Command1
    Combo1
data1与access 关联上
  Option ExplicitDim intX As Integer          ' Counter variable.
Dim Val As Recordset
Dim Max As Integer
Dim Totel As IntegerPrivate Sub Combo1_Click()
    
    ListView1.View = Combo1.ListIndex
End SubPrivate Sub Command1_Click()
Me.ProgressBar1.Max = Data1.Recordset.RecordCount
 Totel = Data1.Recordset.RecordCount
 Data1.Caption = Totel
 Set Val = Data1.Recordset
 Do While Val.EOF = False
    Max = Max + 1
    Me.ProgressBar1.Value = Max
     With ListView1.ListItems.Add()
          For intX = 0 To 4
           If intX = 0 Then
              .Text = Data1.Recordset.Fields(0).Value
           Else
              .SubItems(intX) = Data1.Recordset.Fields(intX).Value
           End If
          Next
          Data1.Recordset.MoveNext
      End With
 Loop
End SubPrivate Sub Form_Load()
Me.Show
Me.ListView1.View = lvwReportDim colX As ColumnHeader     ' Declare variable.For intX = 1 To 5
   Set colX = ListView1.ColumnHeaders.Add()
   colX.Text = "Field " & intX
   colX.Width = ListView1.Width / 5              ‘根据实际情况需要几栏自己设定
Next intX
  With Me.Combo1
      .AddItem "Icon"           '0
      .AddItem "Small Icon"     '1
      .AddItem "List"           '2
      .AddItem "Report"         '3
      .ListIndex = 3
   End With  
End SubPrivate Sub ListView1_Click()
   Data1.Caption = Me.ListView1.SelectedItem.Index & "/" & Totel
End Sub