[Resolvido]Popular ListBox via recordset ADODB

Olá pessoal!

Estou tentando popular um listbox com o código abaixo, porem o mesmo não está funcionando e nem retornando erro. Será que alguém poderia me ajudar?

Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
Dim Rst As ADODB.Recordset

                     
Con.ConnectionString = "Driver={SQL Server};Server=SES-DBSERVER;Database=XXXX;User Id=X;Password=XXXXX;"
                     
Con.Open

Set Rst = Con.Execute("SELECT Descricao FROM StatusDeCobranca")


Me.Lista2.RowSourceType = "Table/Query"
Me.Lista2.RowSource = "Rst"
Rst.Close
Con.Close
Set Rst = Nothing
Set Con = Nothing

Não estou utilizando vínculos, pois vou ter que ficar configurando a conexão maquina a maquina e não tenho acesso de ADM nas máquinas.

Deu certo!

Saberia dizer como eu deveria fazer se for movimentar muitos registros?


Muito Obrigado!

Bom dia!

Tive problemas com lista de valores, que não apresentava todos os dados ai usei como abaixo, faça a atentativa...

Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
Dim Rst As ADODB.Recordset


Con.ConnectionString = "Driver={SQL Server};Server=SES-DBSERVER;Database=XXXX;User Id=X;Password=XXXXX;"

Con.Open

Set Rst = Con.Execute("SELECT Descricao FROM StatusDeCobranca")


Me.Lista2.RowSourceType = "Table/Query"
Me.Lista2.Recordset = Rst
Rst.Close
Con.Close
Set Rst = Nothing
Set Con = Nothing

Vlw galera!