Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        arabul()
    End Sub
    Private Sub arabul()
        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 * From faaliyetkodlari", baglan)

        baglan.Open()

        Dim ds1 As New DataSet()
        adp.Fill(ds1)

        baglan.Close()

        ListView1.Items.Clear()
        For Each i As DataRow In ds1.Tables(0).Rows

            If (i("Aciklama").ToString().StartsWith(TextBox1.Text)) Then
                Dim item As New ListViewItem(i("Kod").ToString())
                item.SubItems.Add(i("Aciklama").ToString())
                ListView1.Items.Add(item)

            End If
        Next
    End Sub

Select * From faaliyetkodlari where aciklama like %muh% 

For i = 1 To Len(Me.ANAMETIN)
 
If Mid(Me.ANAMETIN, i, len(me.ARANANMETIN) ) = me.ARANANMETIN Then
Msgbox "Aranan Metin Pozisyonu : " & i 

End If

Next

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