[VB6]: Errore di runtime 13 scandendo un RecordSet

[x69asterix]

non capisco il perchè di questo errore,
ho un db in mdb con una tabella composta da un campo Artista e da un campo Titolo, ho applicato questo codice ma mi và in errore dove sbaglio?

Private Sub Command3_Click()
'On Error Resume Next
Dim mydata As Database
Dim myrecord As Recordset

  Set mydata = OpenDatabase(App.Path & "\Lista\Archivio.mdb")
    Set myrecord = mydata.OpenRecordset("ElencoQuery")
     If myrecord.EOF Then
    MsgBox "Nessun Artista nel database", vbInformation, "Database"
     Else
     myrecord.MoveFirst
        Do Until myrecord.EOF
        List2.AddItem myrecord.Fields("Artista")
        myrecord.MoveNext
    Loop
   End If
    mydata.Close
End Sub