Error 13 No conciden los tipos

[Bobadilla]

Public Sub Browse (ByVal As Recordset)
On Error GoTo Errores
Dim Itemx As Listitem
Dim X As Integer
lsvcatalogos.ListItems.Clear
rs.MoveFirst
For i = 1 To rs.Fields.Count
If rs.Fields(i - 1).DefinedSize = 0 Then
X = 8
Else
X = 4
End If
If rs.Fields(i - 1).Type = 5 Then
lsvcatalogos.ColumnHeaders.Add , , rs.Fields(i - 1).Name, TextWidth(String(rs.Fields(i - 1).DefinedSize + X, "a")), 1
Else
If rs.Fields(i - 1).DefinedSize = 0 Then
lsvcatalogos.ColumnHeaders.Add , , rs.Fields(i - 1).Name, 1800, 0
Else
lsvcatalogos.ColumnHeaders.Add , , rs.Fields(i - 1).Name, TextWidth(String(rs.Fields(i - 1).DefinedSize + X, "a")), 0
End If
End If
Next i
Do Until rs.EOF
Set ItemX = lsvcatalogos.ListItems.Add(, , rs.Fields(0).Value)
Apartir de este codigo se pasa al sub Errores donde dice "Error 13 No Coinciden Los Tipos", este codigo lo asigno para que me lea c/uno de los campos de la tabla el cual no lo hace.
For j = 1 To rs.Fields.Count - 1
Select Case rs.Fields(j).Type
Case 1
ItemX.SubItems(j) = IIf(rs.Fields(j).Value, "Si", "No")
Case 5
ItemX.SubItems(j) = Format(rs.Fields(j).Value, "$ ###,##0.000")
Case 8
ItemX.SubItems(j) = rs.Fields(j).Value
Case Else
ItemX.SubItems(j) = rs.Fields(j).Value
End Select
Next j
rs.MoveNext
Loop
StrID = lsvcatalogos.ListItems(1).Text
StrID2 = lsvcatalogos.ListItems(1).Text
Exit Sub
Errores:
MsgBox Err.Source & " frmcatalogos Browse " & Err.Number & " " & Err.Description
End Sub

Creo que ya esta corregido. Por Favor Cualquier Respuesta Es Buena