While Not Rec Is Nothing ' solange Rec ein "RecordSet" ist (nicht NOTHING)
    With Rec
        If .Recordcount > 0 Then
           .MoveFirst
           Do While Not .EOF ' Solange DS im ReecordSet vorhanden sind 'HIER _
             KOMMT DER FEHLER
               List1.AddItem .Fields(0).Value
               .MoveNext
           Loop
        End If
    End With
    Set Rec = Rec.NextRecordset ' hole nächstes RecordSet
Wend

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control