Why am I receiving an error like this? "Invalid Argument of '12' is not valid for 'index'"

Dim x As Integer
       Dim x1 As Integer
       Dim check As String = "select accessid from userform_tab where accessid = '" & cboposition.Text & "'"
       Dim ctr As Integer

       CLSCONN = New C_connection
       CLSCONN.ACCESS_INDREC(check)

       For x = 1 To lvsettings.Items.Count
           lvsettings.Items(x).Checked = False  ==> I always encountered an error here saying , "Argument Out of Ranged was unhandled"
"Invalid Argument  = Value of '12' is not a valid for 'index'"
"parameter name:index"
       Next

       With CLSCONN.ds
           For ctr = 0 To .Tables(0).Rows.Count - 1
               If .Tables(0).Rows(ctr)("extra") = 0 Then
                   For x1 = 0 To lvsettings.Items.Count - 1
                       lvsettings.Items(x1).Checked = True
                   Next
               End If
           Next

       End With