ListView列首重复问题

模块：
 '定义ListView全局过程
Public Sub ListViewSort1(ListViewX As ListView)
With ListViewX
Dim i As Integer
If Form1.Adodc1.Recordset.RecordCount > 0 Then
Form1.Adodc1.Recordset.MoveFirst
End If
.ListItems.Clear
.ColumnHeaders.Add , , "序号", 800
.ColumnHeaders.Add , , "文件", 2000
.ColumnHeaders.Add , , "路径", 4000
.ColumnHeaders.Add , , "CRC32", 1000
.ColumnHeaders.Add , , "容量", 1000
.ColumnHeaders.Add , , "日期", 1200
.View = lvwReport
.GridLines = True
.FlatScrollBar = False
.FullRowSelect = True
.LabelEdit = lvwManual
For i = 1 To Form1.Adodc1.Recordset.RecordCount
Set List = .ListItems.Add
List.Text = CStr(i)
List.SubItems(1) = Form1.Adodc1.Recordset.Fields(0).Value
List.SubItems(2) = Form1.Adodc1.Recordset.Fields(1).Value
List.SubItems(3) = Form1.Adodc1.Recordset.Fields(2).Value
List.SubItems(4) = Form1.Adodc1.Recordset.Fields(3).Value
List.SubItems(5) = Format(Form1.Adodc1.Recordset.Fields(4).Value, "yyyy-mm-dd")
Form1.Adodc1.Recordset.MoveNext
Next i
End With
End Sub程序：
Private Sub Form_Load()
ListViewSort1 ListView1~~~正常
End SubPrivate Sub Command1_Click()
With CommonDialog1
.Filter = "所有类型(*.*)|*.*"
.ShowOpen
End With
Adodc1.Recordset.ActiveConnection.Execute "Insert Into ServerData(文件,路径,CRC32,容量,日期) Values ('" & CommonDialog1.FileTitle & "' , '" & CommonDialog1.FileName & "', '" & "CRC32" & "', '" & FileLen(CommonDialog1.FileTitle) & "', '" & Now() & "')"
Adodc1.Recordset.Requery
ListViewSort1 ListView1~~~~列首成了这样（文件 路径 CRC32 容量 日期 文件 路径 CRC32 容量 日期）也就是说一共有5个列首 现在成10个了
End Sub问题1：列首重复问题
问题2：模块里的List.SubItems(1) = Form1.Adodc1.Recordset.Fields(0).Value~~~怎么精简为List.SubItems(1) = Adodc1.Recordset.Fields(0).Value而