list view problem

[mheiy]

in my list view i have a checkbox how can i put the one that the user check in the list view to the database

If LV1.ListItems.Count - 1 > -1 Then
                
                ItemCount = -1
                For Each ls In LV1.ListItems
                    If ls.Checked = True Then
                        ItemCount = ItemCount + 1
                    End If
                Next
                
                ReDim AccessTitle(ItemCount)
                
               i = 0
               For Each ls In LV1.ListItems
                
                    If ls.Checked = True Then
                    
                        AccessTitle(i) = ls.Text
                        i = i + 1
                    End If
                Next
    End If
    
End Sub
 
'Private Sub cmbType_Click()
'
'    If cmbType.Text = sAdministratortitle Then
'
'        For Each ls In LV1.ListItems
'            If ls.SubItems(1) = sAdministratortitle Then
'                ls.Checked = True
'            End If
'        Next
'
'
'    ElseIf cmbType.Text = sEncoderTitle Then
'
'        For Each ls In LV1.ListItems
'            If ls.SubItems(1) = sAdministratortitle Then
'                ls.Checked = False
'            End If
'        Next
'
'    End If