[VB6]come popolare una DBLIST

[jakula]

Ciao Di Nuovo....
Ho provato a riempire una DBLIST con lo stesso metodo usato per la combobox

Private Sub Form_Load()
Call connetti
Rs.Open "SELECT * FROM prodotti "
Do Until Rs.EOF
    
   Combo1.AddItem Rs("nomeprodotto")
    
   
Rs.MoveNext
Loop
End Sub

e quindi l' ho modificata così

. 

Private Sub Form_Load()
Call connetti
Rs.Open "SELECT * FROM prodotti "
Do Until Rs.EOF
    
   DbList1 .AddItem Rs("nomeprodotto")
    
   
Rs.MoveNext
Loop
End Sub

Ma ovviamente dà errore


Ho visto poi che per Le DBCombo e le DBList bisgna impostare le proprietà Datasource Rowsource Datafield

    
Call connetti
 
Rs1.Open "SELECT * FROM prodotti"

  

Set DBList1.DataSource = Rs1
 Set DBList1.RowSource = Rs1
 DBList1.DataField = ("nomeprodotto")
   
End Sub

Qualcuno sa darmi una mano?