o debug.print está mandando os itens para o debug e não para a sua string amigón. Vc não precisa de 2 FOR...NEXT para isso... apenas o que vc já tinha serve. Vou passar um trecho e vc desenvolve o resto:

 

 

For I = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(I).Checked Then
        'código de copiar registro
 
    SQL = "INSERT INTO apartamentos ("

 

    '... restante do código

    SQL = SQL &  Debug.Print ListView1.ListItems(I).Text & ",'" 'código
    SQL = SQL &  Debug.Print ListView1.ListItems(I).SubItems(1)  & "','" 'ENDEREÇO
    SQL = SQL &  Debug.Print ListView1.ListItems(I).SubItems(2)  & "','" 'BAIRRO
    ...

    SQL = SQL & ")"

    ...

Next I

 

Sua SQL tem q ter como base tabela, campos e valores:

 

INSERT INTO TABELA (CAMPO_NUMERICO,CAMPO_TEXTO) VALUES (123,'JOAO')

 

tem q ter os campos e os valores certo?

 

qq dúvida é só postar

 

at+