[VBNET] Checkedlistbox da db e ritorno...

[radeon_snorky]

ho una checkedlistbox con alcune voci... queste sono memorizzate in una tabella di un db (che contiene.... conterrà, meglio! anche mille altre cose...)
sto cercando il modo più veloce per fare le operazioni di inserimento/recupero delle informazioni, piuttosto che salvarmi un boolean per ogni voce (selezionata si/no) ho pensato di "tradurre" l'intera checkedlistbox in una stringa di 0 e 1 per ogni voce...
ho realizzato una piccola applicazione per testare il codice, ho inserito due checkedlistbox, due pulsanti e una textbox (che simula il db)
il codice:

Private Sub recupera_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles recupera.Click
        Dim str As String
        Dim strA As String
        Dim count As Integer
        str = TextBox1.Text
        For count = 0 To str.Length - 1
            strA = TextBox1.Text.Substring(count, 1)
            If strA = "0" Then
                CheckedListBox2.SetItemChecked(count, False)
            End If
            If strA = "1" Then
                CheckedListBox2.SetItemChecked(count, True)
            End If
        Next
    End Sub

Private Sub salva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salva.Click
        Dim stringa As String = ""
        Dim i As Integer
        Dim voce As String
        For i = 0 To CheckedListBox1.Items.Count - 1
            voce = CheckedListBox1.GetItemChecked(i)
            If voce = "True" Then
                voce = 1
            End If
            If voce = "False" Then
                voce = 0
            End If
            stringa = stringa + voce
        Next
        TextBox1.Text = stringa
    End Sub

come lo vedete? brutto forte? come lo miglioro? o cambio approccio?