Private Sub Komut0_Click()

Dim ys2 As dao.Recordset

For z = Liste1.ListCount - 1 To 0 Step -1
    Liste1.RemoveItem (z)
Next z
metin = Metin3.Text
harf = "a b c ç d e f g ğ h i ı j k l m n o ö p r s ş t u ü v y z"
harf = Split(harf, " ")
For i = 0 To UBound(harf)
If InStr(1, metin, harf(i)) = 0 Then
yharf = yharf & harf(i)
End If
Next

xx = "Select* From kelime Where F1 not Like '*[" & yharf & "]*'"

Set ys2 = CurrentDb.OpenRecordset(xx)

For x = 1 To ys2.RecordCount
Liste1.AddItem ys2("F1").Value
ys2.MoveNext
Next
End Sub

Private Sub Metin3_Change()
    Komut0_Click
End Sub