Listbox Alimentado por sql via Ado sem vinculo com o formulario

Olá pessoal, sou novo por aqui.
Nao sei se estou falando besteira, mas

Pesquisei já no fórum algo parecido, porem não o que quero.

Não sei se é possível

É o seguinte: quero alimentar uma listbox via vba ADO, sendo que a tabela esteja em outro back-end sem vinculo
vi exemplos aqui, porem utiliza o método de adicionar os dados através do comando ex: lstCliente.additem
lendo até o final da tabela, porem isto para arquivo grandes acho que não é viável, demora muito carregar os itens.

Gostaria de usar o método lisCliente.rowsource = "Select * from tab_cliente", porem não vi nenhum exemplo aqui que mostre através do ado.

Alguém tem um exemplo de como posso carregar um listbox atraves de vba ado e utilizando este método, sendo que a tabela esteja num back-end sem vinculo e com senha?

Caso exista outro método de carregar a listbox rápido será bem vindo.

Olá

Seja benvindo!

Experimente este método.

Código:

Dim rs As New ADODB.Recordset
...
...
...
rs.Open "Select campo_a, Campo_b FROM tb_cliente"
Set Me!NomeListBox.Recordset = rs
...


Outro metodo que poderia adotar é criar, em tempo de execução, uma tabela temporaria e então ter esta tabela como origem para a listBox. Neste meu artigo abaixo tenho uma vídeo-aula gratuita que vc poderá baixar e estudar a minha proposta.

http://www.usandoaccess.com.br/tutoriais/tuto50.asp?id=1#inicio

Sucesso!

Muito Obrigado, vou tentar fazer.. agradeço Meste Avelino!

Avelino, tenho o mesmo problema e nao consegui resolver com sua string. Apesar de achar q ela está a coisa mais lógica possível, no entando continuo recebendo erros.
Veja meu código:
'-----------
Dim rst As ADODB.Recordset

Set CN = New ADODB.Connection
Conexao = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Data Source=SP7877SR019"
CN.Open Conexao


strSQL = "SELECT codUnidade, Unidade FROM UNIDADES"
Set rst = New ADODB.Recordset
rst.Open strSQL, Conexao

Set lstSelecionados.Recordset = rst
'-----------

Com esse metodo recebo o erro que o Objeto que inseri nao é uma propriedade recordset válida.

Estou com Access 2003 e um SQL Server que nao é adm por mim. Só tenho o acesso as tabelas, etc.

Ninguem?

Olá

Eu não tenho o SQL para realizar um teste fiel mas usei o PROVIDER para acessar o MDB.

Veja o código que utilizei e funcionou:

Código:

Private Sub Form_Open(Cancel As Integer)
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim strsql As String
strsql = "SELECT idfruta,fruta FROM tblfrutas;"
'cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentProject.Path & "\edujakel_be.mdb;Jet OLEDB:Database Password=a1234;"
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\edujakel_be.mdb;Jet OLEDB:Database Password=a1234;"
cnn.Open
Set rs.ActiveConnection = cnn
rs.CursorType = adOpenKeyset
rs.LockType = adLockReadOnly
rs.Open strsql
Set Me!Lista.Recordset = rs
End Sub

Segue arquivo exemplo

Sucesso!

Avelino, obrigado a resposta. mas nao funcionou. Fiz o código como falou mas ele me dá a resposta de que o objeto nao aceita essa propriedade ou método.
Uso o Access 2003 e as bibliotecas que estao selecionadas estao no anexo.

A string q eu abro a conexao é essa:
strSQL = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Data Source=SERVIDOR"