ayuda urgnte buscar con control data

[adrianOscar]

lo q ocurre es q tengo un metodo q recorre todo un msflexgrid y ve si existen los codigos q se han ingresado caso contrario los agrega uso conexion con control data y tengo un dblist del cual le aplico busqueda sensitiva para q el usuario agrege los codigos q tengo en mi base de datos pero a la hora de aplicar el metodo existe falla me sale q solo encunetra el ultimo ingreso he aplicado refresh pero ni aun asi me sale alli les mando el codigo
ayuda urgente!!!!!!!!!!!!!!!


For i = 1 To cantFil
If MSFlexGrid1.TextMatrix(i, 1) <> "" Then
cad = Trim(MSFlexGrid1.TextMatrix(i, 1))
dataInsumos.Recordset.FindFirst "trim(Insumo) Like '" & cad & "'"
If dataInsumos.Recordset.NoMatch Then
'dataInsumos.Refresh
listaFaltas = listaFaltas + "No existe : " + cad + " Nombre del Insumo" + vbNewLine + vbNewLine
Else
idInsumo = dataInsumos.Recordset.Fields(0)
End If
End If
Next