Displaying drives in a listview problem.

Hey guys I want to display all the drives, drive letters and drive types in a listview but when I debug I see this

And I'm getting this warning>

This is the code I'm using

Public Class Form1

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListView3.Items.Clear()
        Dim b As Integer = 0
        For Each drive In IO.DriveInfo.GetDrives
            Dim itemText As String = drive.Name
            Dim Type As String
            Dim ltr As String = drive.Name
            If drive.IsReady AndAlso drive.VolumeLabel <= "Then" Then
                itemText = drive.VolumeLabel

            Else
                Select Case drive.DriveType
                    Case IO.DriveType.Fixed : itemText = "Local Disk"
                    Case IO.DriveType.CDRom : itemText = "CD-ROM"
                    Case IO.DriveType.Network : itemText = "Network Drive"
                    Case IO.DriveType.Removable : itemText = "Removable Disk"
                    Case IO.DriveType.Unknown : itemText = "Unknown"

                End Select

            End If

            Select Case drive.DriveType
                Case IO.DriveType.Fixed : Type = "Local Disk"
                Case IO.DriveType.CDRom : Type = "CD-ROM"
                Case IO.DriveType.Network : Type = "Network Drive"
                Case IO.DriveType.Removable : Type = "Removable Disk"
                Case IO.DriveType.Unknown : Type = "Unknown"

            End Select
            ListView3.Items.Add(itemText)
            ListView3.Items(b).SubItems.Add(ltr)
            ListView3.Items(b).SubItems.Add(Type)

            b += 1
        Next

End Sub


    Private Sub ListView3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView3.DoubleClick
        Dim SelItem As String = ListView3.SelectedItems(0).SubItems(1).Text
        For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            Try
                Process.Start(SelItem)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "ERROR")

            End Try
        Next
    End Sub

    Private Sub ListView3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListView3.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim SelItem As String = ListView3.SelectedItems(0).SubItems(1).Text
            For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
                Try
                    Process.Start(SelItem)
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical, "ERROR")

                End Try
            Next
        End If
    End Sub

End Class

I hope someone can help me out?

Thanks in advanced!