visual basic - non trovo dove sbaglio

[gioconda]

Il problema di prima sembra si sia risolto semplicemene spostanto il for prima della query... e almeno questo va
ora però non mi fa il controllo, cioè inserisce l'ingrediente anche se nella tabella ce n'è un altro uguale.

Chiedo quindi ancora aiuto a voi

Grazie

For numeroingredienti = Me.MSHFIngredienti.FixedRows To Me.MSHFIngredienti.Rows - 1

Qinserimentoingrediente = "INSERT INTO ingrediente (descrizione) VALUES ('" & ingrediente & "')"
Set miodb = OpenDatabase(App.Path & "\cucina.mdb")

Set miors = miodb.OpenRecordset("ingrediente")
Dim ingredienteesiste As Boolean


ingrediente = Me.MSHFIngredienti.TextMatrix(numeroingredienti, 0)
MsgBox numeroingredienti
MsgBox ingrediente

If miors.EOF = False Then
If ingrediente = miors.Fields!descrizione.Value Then
ingredienteesiste = True

Else
ingredienteesiste = False
miors.MoveNext

End If
End If

Next
If ingredienteesiste = False Then
miodb.Execute (Qinserimentoingrediente)
miors.Close
End If