Olá pessoal , estou finalizando meu projeto, e nesse projeto contem um sistema quase completo, de financeiro , orçamento , ordem de serviço.
Aproveitei de um amigo um formulário de Orçamento, e desse formulário quero aproveitar para modificar ele para emitir Ordens de serviço, porém o campo de busca eu quero usar o mesmo formulário e buscar no mesmo banco de dados ,sigam o exemplo para aliviar a cabeça:

1° O Cliente chega na empresa , efetuamos um orçamento.
2° Esse orçamento futuramente pode ser transformado em Ordem de serviço.

Na pratica tentei efetuar esse processo , porém tem um código que não me permite fazer tal ação!
Segue o código:

  
    With frmOrçamento
        .txtNome = rsOrçDet("Nome_Cli")
        .txtTelefone = rsOrçDet("Telefone")
        .txtObservaçoes = rsOrçDet("Observaçoes")
        .txtPercentual = Format(rsOrçDet("Percentual"), "0.00") & "%"
        If rsOrçDet("Acresc_Desc") = 1 Then
            .optAcr.Value = True
        Else
            .optDesc.Value = True
        End If
        
        With .lstvOrç
        .ListItems.Clear
        For i = 1 To rsOrçGrad.RecordCount
            .ListItems.Add 1, , Format(rsOrçGrad(1), "0,00")
            .ListItems(1).ListSubItems.Add 1, , rsOrçGrad(2)
            .ListItems(1).ListSubItems.Add 2, , Format(rsOrçGrad(3), "currency")
            .ListItems(1).ListSubItems.Add 3, , Format(rsOrçGrad(4), "currency")
            .ListItems(1).ListSubItems.Add 4, , Format(rsOrçGrad(5), "0.00") & "%"
            .ListItems(1).ListSubItems.Add 5, , Format(rsOrçGrad(6), "currency")
            .ListItems(1).ListSubItems.Add 6, , Format(rsOrçGrad(7), "currency")
            .ListItems(1).ListSubItems.Add 7, , Format(rsOrçGrad(8), "currency")
            .ListItems(1).ListSubItems(7).Bold = True
            rsOrçGrad.MoveNext
        Next i
        End With
        .CalcTotal
        .btnNovo.Enabled = True
        .btnGravar.Enabled = True
        .btnImprimir.Enabled = True
        NroOrç = rsOrçDet("Nro_Orçamento")
        .stbOrç.Panels(1) = "Nro Orç.:    " & Format(NroOrç, "0,000")
        End With

Essa With,teria que também comunicar com o frmOrdem, já tentei algumas formas e não consigo.
Alguém se Habilita a me ajudar?