Gifi izleyiniz aceleden tam deneyememiştim.

Do Until ys2.EOF

    Liste1.AddItem ys2("F1").Value

    ys2.MoveNext

Loop

Önceki döngüyü yukarıdaki ile değiştirdim.
Sonuçta % yerine * kullanılmış oldu sorgu içinde.

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)





Do Until ys2.EOF

    Liste1.AddItem ys2("F1").Value

    ys2.MoveNext

Loop



End Sub



Private Sub Metin3_Change()

    Komut0_Click

End Sub