DBlist che non funziona

[dops]

Ciao.. non riesco a capire perchè questa dblist non funziona eco il codice:

Private Sub Form_Load()
Set DB = New ADODB.Connection
  DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;" & "Data Source=" & App.Path + "\pprodotti97.mdb"
  DB.Open
  Set RS = New ADODB.Recordset
  RS.Open "Select * from prodotti", DB, adOpenStatic, adLockOptimistic
dblistprodotti.DataSource = RS
End Sub

mi dà questo errore:
"impossibile trovare il metodo o il membro dei dati"
e mi evidenzia :.DataSource
eppure mi sembra corretto..
mhà.. :master: