não da para conectar o list em um recordset!
Voce tem que adicionar os item nele da seguinte maneira:
adicionar o cabeçalho
Set Col = Lista.ColumnHeaders.Add(, , "Código", 800)
Set Col = Lista.ColumnHeaders.Add(, , "Nome", 5000)
adicionar dados
Lista.ListItems.Add(, , "Codigo").SubItems(1) = "Nome"