Работа с ListView

Private Sub Комманда2_Click() ' поиск по артикулю
Dim ART ' перменная артикуля
K = 0 ' переменная строки
ART = InputBox("Введите искомый артикуль", "Помск по артиклю", "М000003") 'запрос артикуля
Select Case ART ' выбрать артикуль
Case "" 'если нажали отмена
Exit Sub ' выйти из процедуры
End Select ' конец выбора
With FG 'выбрать таблицу
.Rows = 1 'назначить в таблице одну строку
RS.MoveLast 'две строчки для подсчёта количества записей в таблице
RS.MoveFirst '
        For J = 1 To RS.RecordCount 'с начала до конца таблицы
                    If RS.Fields(1) = ART Then 'если артикуль совпадает
                    .Rows = .Rows + 1 'прибавить строчку в таблице
                    K = K + 1 'добавить счетчик
                    .TextMatrix(K, 0) = RS.Fields(0) 'заполнить значениями
                    .TextMatrix(K, 1) = RS.Fields(1) '
                    .TextMatrix(K, 2) = RS.Fields(2) '
                    .TextMatrix(K, 3) = RS.Fields(3) '
                    .TextMatrix(K, 4) = RS.Fields(4) '
 
                    End If 'выход из условия
           RS.MoveNext 'следующая строка в таблице базы
        Next J 'следующая строка
End With 'конец выбрать
End Sub 'конец процедуры

strDBName = App.Path & "\KR2.mdb" ' установить путь к таблице рядом с программой
Set WS = DBEngine.Workspaces(0) ' двигатель рабочего пространства
Set DB = WS.OpenDatabase(strDBName, False, False) ' назначить базу
sSQL = "SELECT * FROM KR1;" ' запрос к таблице
Set RS = DB.OpenRecordset(sSQL) ' открыть рекорсет

Private Sub Кнопка13_Click()
Dim SUM
Dim dbs As DAO.Database
Dim dba As DAO.Recordset
Set dbs = CurrentDb()
Set dba = dbs.OpenRecordset("TB")
 dba.MoveFirst
  Do Until dba.EOF
  If dba.Fields(0) >= Начало.Value _
  And dba.Fields(0) <= Конец.Value Then
      SUM = SUM + CDbl(dba.Fields(1))
       Debug.Print CDbl(dba.Fields(1)), SUM
  End If
 dba.MoveNext
Loop
End Sub