Lỗi click vào list view

[dangvanhoavc]

Mình làm 1 ứng dụng nhỏ về quản lý thông tin nhưng gặp lỗi 381(could not get the list property. Invalid property array index) khi click vào list view để hiển thị thông tin đã select lên textbox. Nếu mình chạy lại code lần 2 thì không lỗi, lần 3 lại lỗi, lần 4 không... cứ lặp lại như vậy không biết xử lý ra sao, rất mong mọi người giúp đỡ.
p/s: lst_ds là danh sách các thành viên trong hộ. Mình muốn hiển thị thông tin của từng thành viên được chọn lên textbox để xem, sửa...
Private Sub lst_ds_Click()
Dim lastrow, i As Long

lastrow = Me.lst_ds.ListCount
For i = 1 To lastrow
If lst_ds.Selected(i) Then
Me.tb_maho = Me.lst_ds.List(i, 0)
Me.tb_hoten = lst_ds.List(i, 1)

Me.tb_ngaysinh = Left(lst_ds.List(i, 2), 100) 'Loi tu dong code nay
Me.tb_cccd = lst_ds.List(i, 3)
Me.tb_quequan = lst_ds.List(i, 4)
Me.tb_quanhe = lst_ds.List(i, 5)
Me.cb_gioitinh = lst_ds.List(i, 6)
Me.cb_ghichu = lst_ds.List(i, 8)
Me.tb_diachi = lst_ds.List(i, 7)
Me.tb_bhyt = lst_ds.List(i, 10)
Me.TB_dienthoai = lst_ds.List(i, 9)
Exit For
End If
Next i
End Sub