Função - objeto tipo control

Olá pessoal, tentei achar algo parecido mas não encontrei aqui no forum

Quero criar uma função onde quero passar o parametro controle tipo um listbox ou combobox para a função ex.:

function selecionaregistro(sql as strig, MeuControle as control)

abreconexao()....

open cn, sql ...

set MeuControle.recordset = rs
dá erro neste linha onde MeuControle não pode refenciar ao rs de um recordset
end function

pois assim criou uma função que preencha um listbox ou um combobox no formulario

Entao a duvida principal é como faço para passar um objeto control para uma função!
nao sei se alguem entendeu...

Bom dia, jrvicc
Já procurou no fórum?
Veja se lhe serve
http://maximoaccess.forumeiros.com/t6782-resolvidoconexao-via-recordset?highlight=recordset

Obrigado pelo auxílio, mas não é isso que procuro
Eu preciso passar para uma Sub o controle listbox ou combobox, assim eu posso
utilizar quaisquer objeto controle no meu formulario, seja listbox ou combobox para carregar os dados de uma tabela

Public Sub (CarregaList_Combo(Meusql, MeuControle, MeuForm)

.... Abro as conexões pelo ado normalmente
e seto o controle assim
Set MeuControle.Recordset = RS
End Sub
So que qui dá erro pq, o Meucontrole vem com nulo na Sub, ele nao transporta o objeto controle listbox ou combobox

Entao quero saber como declaro um Objeto Control numa Sub, pois o formulario eu consigo transportar para uma Sub ou função, já um objeto control de um formulario eu nao consigo?

Bom dia, jrvicc
Não entendi, então, se quer passar o nome do controlo ou a origem do controlo
Public Sub (OrigemControle as string, NomeControle as control, NomeForm as form)

Boa Tarde, Alexandre

Na verdade eu quero passar o objeto tipo um listbox ou combobox pela função,
assim essa função preencheria os dados da tabela numa listbox ou combobox, mas quem determinaria se seria uma ou outra seria no chamado da função, porem como faço para trazer o controle objeto para minha função

como vc fez nao funciona

private sub preencher(Lista_Combo as control)
...
...
Open cn, rs
....
Lista_Combo.recorder = rs
aqui precisa trazer o objeto, assim quando quero preencher uma listbox eu trago pela função, se quero uma combobox eu trago tb pela função...entendeu...

pelo que consegui fazer somente isso e funciona:

Private sub Preencher(Lista as listbox)
ou
Private sub Preencher(Combo as Combobox)
assim funciona só que independente, eu quero uma geral que trate as 2 ao mesmo tempo transportando o objeto.

espero que entendeu..agora..

agradeço pelo seu tempo

Se só funciona com argumentos de tipo diferentes, experimente com argumento sem tipo
Private sub Preencher(NomeControlo)