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