Vejam este codigo:

Private Sub Cmd_arquivar_Click()

Dim vA As Integer
vA = MsgBox("Desejar informar o número da caixa em que será arquivado este projeto ?", vbYesNo + vbQuestion, "Arquivar projeto")
If vA = vbYes Then

If TextCOD_PROJETOS = "" Then
Dim vINF As Integer
vINF = MsgBox("Não foi informado nenhum Projeto para arquivamento, verifique.", vbOKOnly + vbCritical, "Arquivar projeto")
   
    Else
   
    Dim cnncomando As New ADODB.Command
    Dim rs_arquivo As New ADODB.Recordset
    With cnncomando
    .ActiveConnection = cnnProjetos
    .CommandType = adCmdText
    .CommandText = " select * from arquivo "
    Set rs_arquivo = .Execute
    End With
        With rs_arquivo
        rs_arquivo.Filter = " cod = " & TextCOD_PROJETOS.Text
        If Not (.BOF And .EOF) Then
           
        Dim vJA_EXISTE_NO_ARQUIVO As Integer
        vJA_EXISTE_NO_ARQUIVO = MsgBox("Este projeto já consta na Base de Dados do Arquivo", vbOKOnly + vbCritical, "Arquivar projeto")
       
        Else
       
        With cnncomando
        .ActiveConnection = cnnProjetos
        .CommandType = adCmdText
        .CommandText = " insert into arquivo " & _
        "(cod, cpf, nome)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & " "
    .Execute
   
    End With
    End If
Set cnncomando = Nothing
Set rs_arquivo = Nothing

       

End With
End If
End If
End Sub

Vejam onde informo para gravar na tabela ARQUIVO os dados da tabela PROJETOS, dica que peguei na sessão de dicas, postada por nosso amigo GHOST_ , aproveito para agradecer, porém, além destes campos gostaria de por dentro do: INSERT INTO, o outro campo da tabela ARQUIVO, que é o campo CAIXA mas, o valor informado para este campo teria que ser informado pelo usuario por uma inputbox, que viria logo após o ELSE, o problema é quando colocar o campo CAIXA  dentro de:

.CommandText = " insert into arquivo " & _
        "(cod, cpf, nome, CAIXA)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & " "
    .Execute

 

onde colocarei a variavel valor da inputbox?

dim vscaixa as string

 

vscaixa = inputbox ("bla bla bla")

valide / critique o valor de vscaixa

 

.CommandText = " insert into arquivo " & _
        "(cod, cpf, nome, CAIXA)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & ", " & vscaixa &

creio que assim deva funcionar

 

ass. Paulo Silva

Obrigado Paulo pela atenção, vou relatar como ficou a situação, uma das opções seria jogar um update logo após o insert que acaba funcionando como uma continuação do insert na verdade, pois na tabela arquivo estão todos os campos VAZIOS, então eu lanço os campos COD, NOME, CPF através do insert e em seguida com o update lanço o campo CAIXA obtendo o valor através da inputbox, mas tudo acabou funcionando como um insert, bom, pra finalizar...deu certo fazendo esta montagem, abaixo a parte do código:

Dim cnncomando As New ADODB.Command
    Dim rs_arquivo As New ADODB.Recordset
    With cnncomando
    .ActiveConnection = cnnProjetos
    .CommandType = adCmdText
    .CommandText = " select * from arquivo "
    Set rs_arquivo = .Execute
    End With
        With rs_arquivo
        rs_arquivo.Filter = " cod = " & TextCOD_PROJETOS.Text
        If Not (.BOF And .EOF) Then
            
        Dim vJA_EXISTE_NO_ARQUIVO As Integer
        vJA_EXISTE_NO_ARQUIVO = MsgBox("Este projeto já consta na Base de Dados do Arquivo", vbOKOnly + vbCritical, "Arquivar projeto")
        
        Else
        
        With cnncomando
        .ActiveConnection = cnnProjetos
        .CommandType = adCmdText
        .CommandText = " insert into arquivo " & _
        "(cod, cpf, nome)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & " "
    .Execute
    
        Dim vcaixa As Long
        vcaixa = InputBox("caixa")
    
        With cnncomando
        .ActiveConnection = cnnProjetos
        .CommandType = adCmdText
        .CommandText = " update arquivo set " & _
        " caixa = '" & vcaixa & "'" & _
        " where cod = " & TextCOD_PROJETOS.Text & ";"
        
    .Execute
        
        Dim vOK As Integer
        vOK = MsgBox("Projeto arquivado com sucesso", vbOKOnly + vbInformation, "Arquivar projeto")
          
    
    End With
                  
    
Set cnncomando = Nothing
Set rs_arquivo = Nothing