Private Sub listplaces()
Dim rst As Recordset, str As String, Kol As Long, Nom As Long
str = "SELECT ID_place, PlacePrim, Count(ID_Check) AS [Число товаров] " & _
"FROM tblRev " & _
"WHERE(((ID_Rev) = " & NomerRevizion & ") And ((ID_place) < 997)) " & _
"GROUP BY ID_place, PlacePrim " & _
"ORDER BY ID_place;"
  Set rst = CurrentDb.OpenRecordset(str, dbOpenDynaset)
With Spisk2
    .ColumnCount = 3
    .BoundColumn = 1
    .Width = 4.9 * tw_pix
    .ColumnWidths = "0; 2157;  567"
    .ColumnHeads = True
    .RowSourceType = "Value List"
        .RowSource = vbNullString
        str = "0;Место №; Кол."
                    .AddItem str, 0
        str = "0;Ревизия;-"
                    .AddItem str, 1
        str = "1000;Перевод ;-"
                    .AddItem str, 2
        str = "999;Уценка;-"
                    .AddItem str, 3
        str = "998;Стоимость-0;-"
                    .AddItem str, 4
If rst.AbsolutePosition = -1 Then Exit Sub
Kol = 0: Nom = 4
rst.MoveFirst
    Do Until rst.EOF
    Kol = Kol + rst(2)
        str = rst.Fields(0) & ";" & rst(1) & ";" & rst(2)
            .AddItem str, Nom + rst(0)
    rst.MoveNext
    Loop
.RemoveItem 1
        str = "0;Ревизия;" & Kol
                    .AddItem str, 1
        .value = 0
End With
rst.Close
Set rst = Nothing

End Sub

Private Sub btndels_DblClick(cancel As Integer)
Dim Nom As Variant, ilval As Long, str3 as string, tt as string
tt =vbnullstring: str3 =vbnullstring
With Spisk2.value
    Nom = .ListIndex
' нужно собрать строку
for ilval =0 to Spisk2.columns-1 ' последний столбец поменяем
str3=str3 & "; " & Spisk2.column(ilval ,Nom)' не помню либо брать Nom, либо Nom+1
next
    .RemoveItem Nom
    .additem tt & "V",nom-1 ' где то так - ставим перед той строкой которую удалили
End With
end sub