Listveiw..error

Kan någon se vad det är fölr fel på den här koden....

Jag får felneddelande

run-time-error'13':
type mismatch

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Public Sub Form_Load()
Dim Conn As Connection
Dim rs As Recordset
Dim WS As Workspace
Set WS = CreateWorkspace("NewODBCWorkspace", "", "", dbUseODBC)
Set Conn = WS.OpenConnection("scannat")
Set rs = Conn.OpenRecordset("Select * from serienummer")

 Dim itemX As ColumnHeader
 Dim i As Integer
 For i = 0 To rs.Fields.Count - 1
  Set itemX = ListView1.ColumnHeaders.Add(, , rs.Fields(i).Name, , 0)
 Next i
 
 Do While Not rs.EOF
   Dim itmY As ListItem

   Set itmY = ListView1.ListItems.Add(, , rs.Fields(0), , 0)
 Dim j As Integer
    For j = 1 To rs.Fields.Count - 1
      If Not IsNull(rs.Fields(rs.Fields(j).Name)) Then
        itmY.SubItems(j) = rs.Fields(rs.Fields(j).Name)
      Else
        itmY.SubItems(j) = ""
      End If
    Next j
  rs.MoveNext
  Loop
  rs.Close

End Sub

------------------
Är man medlem på WF så behöver man inga vänner !

[Redigerat av Tobbster den 01 nov 2001]

[Redigerat av Tobbster den 01 nov 2001]

Vilken rad marker VB att det är fel på ? Den brukar göra det då man får "type mismatch"

// BeatBox

------------------
"Mörkrets gärningar, förekommer även på dagen"

Sixten Landby

Den här rade är det de blir fel på....

Men det är efter några varv i loopen så och det är när recordsetet blir tomt...
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Set itmY = ListView1.ListItems.Add(, , rs.Fields(0), , 0)

------------------
Är man medlem på WF så behöver man inga vänner !

Blr det någon skillnad om du flyttar ut "Dim itmY As ListItem" utanför while loopen ? Som i itemX fallet tänkte jag.

// BeatBox

------------------
"Mörkrets gärningar, förekommer även på dagen"

Sixten Landby

Nepp ingen skillnad !!!!!!!

------------------
Är man medlem på WF så behöver man inga vänner !

Tyvärr så kan jag nog inte hjälpa dig. Det är svårt utan att man kan sitta och debugga koden. :-(

// BeatBox

------------------
"Mörkrets gärningar, förekommer även på dagen"

Sixten Landby

Ingen annan ?????

------------------
Är man medlem på WF så behöver man inga vänner !

Det enda jag kan se är att i vissa fall så returnerar rs.Fields(0) nått annat än en sträng.

// BeatBox

------------------
"Mörkrets gärningar, förekommer även på dagen"

Sixten Landby