[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

[Giulio C.]

Ciao...

Ad occhio e senza verificare..

mi sembra manchi "not" nel ciclo di popolamento della tua List2 o sbaglio?

Io in genere uso:

 While not .eof

[Jupy64]

Originariamente inviato da Giulio C.
Ciao...

Ad occhio e senza verificare..

mi sembra manchi "not" nel ciclo di popolamento della tua List2 o sbaglio?

Io in genere uso:

 While not .eof

Ciao, con While si cicla fintanto che la condizione è vera, mentre con Do Until si cicla fintanto che la condizione è falsa..pertanto il problema non è quello.

Dovresti indicare, in fase di debug, su quale riga ti da l'errore.. il codice di errore, direttamente dalla guida in linea, da questa spiegazione: Tipo non corrispondente