Riferimento mancante ad ADO (errore runtime 13)

[x69asterix]

Private Sub Form_Load()

Dim mydata As Database
Dim myrecord As Recordset
Set mydata = OpenDatabase(App.Path & "\Protocollo1.mdb") ' questo è il DB
Set myrecord = mydata.OpenRecordset("protocollo") ' questa è la Tabella
If myrecord.EOF Then

MsgBox "Nessun nome nel database di questo Sistema", vbInformation, "nomedeltuoprogramma"
Else
myrecord.MoveFirst
Do Until myrecord.EOF
List1.AddItem myrecord.Fields("reparto")
myrecord.MoveNext
Loop
End If
mydata.Close

End sub

cosa devo aggiungere qualche riferimento?
così mi và in errore run time 13

[MItaly]

Supponendo che stiamo parlando di VB6 (così si desume dal codice), devi aggiungere un riferimento ad ADO.

[Boolean]

Originariamente inviato da MItaly
devi aggiungere un riferimento ad ADO.

non credo...
guardando il codice direi che è DAO, per cui deve aggiungere il riferimento alla

Microsoft DAO 3.x Object Library

più recente (credo sia la 3.6)

Boolean

[power.mobile]

il credo o non credo non ci sta proprio... il nostro x69asterix dovrebbe specificare almeno il linguaggio e sarebbe meglio anke un titolo + significativo... poi casomai gli domandiamo con che cosa effettua l'accesso ai dati....

[x69asterix]

Originariamente inviato da MItaly
Supponendo che stiamo parlando di VB6 (così si desume dal codice), devi aggiungere un riferimento ad ADO.

ok funziona

[alka]

Originariamente inviato da power.mobile
il credo o non credo non ci sta proprio... il nostro x69asterix dovrebbe specificare almeno il linguaggio e sarebbe meglio anke un titolo + significativo... poi casomai gli domandiamo con che cosa effettua l'accesso ai dati....

Non c'è problema: visto che non è la prima, la prossima volta si chiude.

Ovviamente, quoto tutto quanto... e correggo il titolo io, per questa volta.