Não entendi muito bem a operação que você está fazendo. Achei sua postagem muito confusa; mas vou colocar o código abaixo que pode ser adaptado para suas necessidades:
(...)
Dim Item As ListItem '**Povoando o grid
If rst.RecordCount = 0 Then
Exit Sub
Do Until rst.EOF
Set Item = LvCadastro.ListItems.Add(, , rst!Mesa)
Item.SubItems(1) = rst!StatusMesa
Item.SubItems(2) = rst!Cliente
If rst!StatusMesa = "1" Then
Item.Checked = True 'marca o check do listview
Else
Item.Checked = False 'limpa o ckeck
End If
rst.MoveNext
Loop
(...)
Qualquer dúvida, é só falar..