listview索引错误,请教

运行后显示lv_timing.listitems(i)索引错误，我是新手不知道错在哪了？请大虾帮我看看，谢谢。

Private Sub Form_Load()
Dim m As Integer '定义扫描循环变量
For m = 1 To lv_timing.ListItems.Count
If Left(Time, 5) = lv_timing.ListItems(i).SubItems(2) Then
'取系统时间和listview里的字段列表里的时间相等时
lv_dial.ListItems.Add , , lv_timing.ListItems(i).SubItems(1)
'把每个符合时间的分机号放在一个新的listview里
　　lv_dial.ListItems.Item(i).SubItems(2) = "reday"
End If

Next m
End Sub
.
.
.
.

Public Sub lv_timingShow()

'将数据库中的用户信息显示在ListView中
Dim ext_Show As ADODB.Recordset
Dim ext_strShow As String
Dim i As Long


ext_strShow = "select * from dialtime order by TIM"
Set ext_Show = New ADODB.Recordset
ext_Show.Open ext_strShow, ext_inf, 1, 1
lv_timing.ListItems.Clear '清空列表

For i = 1 To ext_Show.RecordCount

lv_timing.ListItems.Add , , ext_Show("id")
'lv_timing.ListItems.Item(i).SubItems(1) = ext_Show("id")
lv_timing.ListItems.Item(i).SubItems(1) = ext_Show("EXT")
lv_timing.ListItems.Item(i).SubItems(2) = ext_Show("TIM")
ext_Show.MoveNext

Next i
End Sub