Formulário Genérico

Boas Galera,

Não sei se o que quero é possível mas lá vai.

Para pesquisar um cadastro de Clientes,Funcionários,Fornecedores quero fazer uma tela única aonde passo os parâmetros e o formulário seja montado de acordo a estes parâmetros.

Esbarrei na primeira situação :

Código:

Private Sub Form_Load()
    Select Case Me.OpenArgs
        Case "cliente"
            Me.Rótulo4.Caption = "Pesquisa de Clientes"
            Me.Rótulo1.Caption = "Digite o Nome do Cliente"
            formulario = "Cliente"
            campo = "cli_codigo"
        Case "funcionario"
            Me.Rótulo4.Caption = "Pesquisa de Funcionários"
            Me.Rótulo1.Caption = "Digite o Nome do Funcionário"
            formulario = "Empregado"
            campo = "emp_codigo"
        Case "fornecedor"
            Me.Rótulo4.Caption = "Pesquisa de Fornecedores"
            Me.Rótulo1.Caption = "Digite o Nome do Fornecedor"
            formulario = "Fornecedor"
            campo = "for_codigo"
    End Select
End Sub

Private Sub lstnomes_DblClick(Cancel As Integer)
    DoCmd.OpenForm formulario, , , "[" & campo & "] = " & Me.lstnomes
    DoCmd.Close acForm, "pesquisa"
End Sub


Como montar a váriavel formulario e campo para ser usada no "OpenForm" da "Private Sub lstnomes"?

A falta de conhecimento traz o sofrimento!

Consegui resolver essa parte de acordo a explicação do post var entre subs, colocando uma simples instrução :

Código:

Public formulario As Variant
Public campo As Variant

Agora preciso popular uma listbox de acordo a opção.

Código:

            strSql = "SELECT Fornecedor.for_codigo " _
                   & "     , Fornecedor.for_nome AS Fornecedor " _
                   & "     , Fornecedor.for_telefone AS Telefone " _
                   & "FROM   Fornecedor " _
                   & "WHERE  Fornecedor.for_nome Like '*" & Me.txt_nome.Text & "*'"
            Me.lstnomes.RowSource = strSql
            Me.lstnomes.Requery

Porem me gera o seguinte erro :

Erro em tempo de execução '2185':
Você não pode fazer referência a uma propriedade ou a um método de
um controle, a menos que o controle tenha o foco.