I am not complitly agry with Frans C
Itis true I mist one line of code

For Each fld In rs.Fields
List1.AddItem rs(2) & " " & " " & rs(3) & " "
rs.MoveNext
'this is the line i mist
If rs.EOF Then Exit For
Next
other then thet it works fine