¿Cómo recorrer una cadena en una base de datos usando vb y agregarla a un cuadro de lista desplegable?

Si utilizas el

método Data1.Recordset.FindFirst

o el

método Data1.Recordset.FindNext

Para buscar registros, utilice

Data1.Recordset.NoMatch

para determinar si se encuentran registros coincidentes si

Data1.Recordset.NoMatch regresa. Verdadero significa que no se encontró y devolver Falso significa que se encontró.

No se puede utilizar directamente (preferiblemente no directamente) como lo hace usted:

Data1.Recordset.FindNext "Field 2 Like" & "'*" & Text8.Text & "* '"

Combo1.AddItem Data1.Recordset.Fields(1)

En su lugar, haz esto:

Data1.Recordset.FindNext "Me gusta del campo 2" & "'*" & Text8.Text & "*'"

if Data1.Recordset.NoMatch Then

'Escribe aquí el código correspondiente para finalizar la búsqueda

else

Combo1.AddItem Data1.Recordset.Fields(1)

.........

Finalizar si

Lo que dije anteriormente es mejor no usarlo directamente como usted. Significa que todavía se puede usar directamente en algunos lugares. Es decir, ¿está seguro de que el registro que está buscando debe existir?