Private Sub arabul()

        ListView1.Items.Clear()

        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tablolar.mdb;")

        Dim adp As New OleDb.OleDbDataAdapter()

        adp.SelectCommand = New OleDb.OleDbCommand("SELECT faaliyetkodlari.Kod, faaliyetkodlari.Aciklama FROM faaliyetkodlari WHERE faaliyetkodlari.Aciklama Like '%" & Me.TextBox48.Text & "%' ", baglan)

        baglan.Open()

        Dim ds1 As New DataSet()

        adp.Fill(ds1)

        baglan.Close()

        Dim item As New ListViewItem

        For Each row As DataRow In ds1.Tables(0).Rows

            item = ListView1.Items.Add(row.Item("Kod"))

            item.SubItems.Add(row.Item("Aciklama"))

        Next

    End Sub

Private Sub ListView1_ItemChecked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked

        If (e.Item.Checked) Then

            TextBox7.Text += e.Item.SubItems(0).Text.ToString() '& " - " & e.Item.SubItems(1).Text.ToString()

            'Kayit.TextBox22.Text += e.Item.SubItems(1).Text.ToString()

        End If

    End Sub