IMO it would be better to use For-Next loop
Code:
        Dim X As Integer
        For X = 1 To ListView1.ListItems.Count
            rs.AddNew
              rs!Assettag = ListView1.ListItems(X).Text
              rs!AssetDescription = ListView1.ListItems(X).SubItems(1)
            rs.Update
        Next X