[Resolvido]Mudar origem do controle em Sub Formulário

Olá a todos, tenho um sub formulário que deve mudar de consulta conforme marco uma opção, consigo fazer normalmente em controles, mas no sub não estou conseguindo, olhei aqui no forum e fiz varios testes, sem sucesso . . .

" Erro número #438 na linha 5 - O objeto não aceita esta propriedade ou método - gerado por: opc_Tipo_Venda_Click()   "

segue o código:

Private Sub opc_Tipo_Venda_Click()
On Error GoTo TrataErro


1    If opc_Tipo_Venda.Value = 1 Then ' O S ( Sem Papel )
2        lbl_Titulo_Cbx.Caption = " Ordem Serv. "
3        cbx_Fil_OSouNF.RowSource = "cons_Filtro_OS_Pgmto"
4        cbx_Fil_Cliente.RowSource = "cons_Cliente_SemPapel"

5        Forms!frm_Lanc_Pagamentos.Form!frmS_Pagamento_SemPapel.ControlSource = "cons_Pagamento_SemPapel"
6      '  cbx_Fil_Vencimento.RowSource = ""
7         Call LimpaFiltro
    End If
8    If opc_Tipo_Venda.Value = 2 Then ' N F e ( Com Papel )
9        lbl_Titulo_Cbx.Caption = " N. F. e. "
10        cbx_Fil_OSouNF.RowSource = "cons_Filtro_NFe_Pgmto"
11        cbx_Fil_Cliente.RowSource = "cons_Cliente_ComPapel"
12        Call LimpaFiltro
   End If
13    cbx_Fil_OSouNF.Requery
   
Exit Sub
TrataErro:
   MsgBox "Erro número #" & Str$(Err.Number) & " na Linha " & Str$(Erl) & " - " & Err.Description & " - gerado por: opc_Tipo_Venda_Click() " & Err.Source
End Sub

Desde já agradeço.

Tente

forms!NomeFormularioPrincipal!NomeDoControleSubFormularioDentroDoFormularioPrincipal.Form.RecordSouce = "NomeDaConsulta"

Tentei e Funcionou ! ! !

Muito obrigado DamascenoJr

Resolvido de boas

Faltou o resolvido. Aguardamos sua ação.

Obrigado a todos