If Not Excel.Range("A" & CStr(i)).Value = "" Then
                    Dim itemX As New ListViewItem
                    itemX = ListView1.Items.Add(Excel.Range("A" & CStr( _
                      i)).Value)
                    itemX.SubItems.Add(Excel.Range("B" & CStr(i)).Value)
                    'ListView1.Items.Add(Excel.Range("B" & CStr(i)).Value)
                Else
                    Exit For
                End If

fg viperbone