[Resolvido]Listbox para outra Listbox

Pessoal,
Tenho o seguinte código para transferir dados de uma listbox a outra, ela funciona perfeitamente quando o campo da listbox multiplos registros esta como "não", porém se eu mudá-lo para Simples que é oq pretendo fazer o código já não funciona, alguém tem uma solução?

Dim strSQL As String
strSQL = "UPDATE TBL_SERVICOS SET strAtivoOuNao = True WHERE ID = " & Lista6
CurrentDb.Execute strSQL

Solucionado com o código

Private Sub Comando12_Click()
Dim strSQL As String
With Me.Lista6
If .ItemsSelected.Count > 1 Then
For inti = (.ItemsSelected.Count - 1) To 0 Step -1
strSQL = "UPDATE TBL_SERVICOS SET strAtivoOuNao = True WHERE ID = " & .Column(0, .ItemsSelected(inti))
CurrentDb.Execute strSQL
'Txt_1 = .Column(2, .ItemsSelected(inti))
'Txt_2 = .Column(2, .ItemsSelected(inti))
'Txt_3 = .Column(2, .ItemsSelected(inti))
Next inti
Else
strSQL = "UPDATE TBL_SERVICOS SET strAtivoOuNao = True WHERE ID = " & Lista6
CurrentDb.Execute strSQL
End If
End With
End Sub

Olá, peço que tenha atenção onde posta a duvida! Pois as salas de Repositórios são apenas para Exemplos!

Agradecemos a Compreensão.

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

O tópico será movido para a Sala Correta!