El error que sale es: RESULT IS NOT AVAILABLE
PUBLIC SUB Button2_Click()
DIM i AS Integer
DIM found AS Boolean
rs.MoveFirst
found = FALSE
i = 1
WHILE 1 <= rs.Count
IF rs!Nombre_medicamento LIKE "*" & textbox1.Text & "*" THEN
found = TRUE
EXIT
END IF
rs.MoveNext
i = i + 1
WEND
IF found = TRUE THEN
updateFieldValue()
ELSE
Message.Warning("Error en la data!!")
END IF
DIM i AS Integer
DIM found AS Boolean
rs.MoveFirst
found = FALSE
i = 1
WHILE 1 <= rs.Count
IF rs!Nombre_medicamento LIKE "*" & textbox1.Text & "*" THEN
found = TRUE
EXIT
END IF
rs.MoveNext
i = i + 1
WEND
IF found = TRUE THEN
updateFieldValue()
ELSE
Message.Warning("Error en la data!!")
END IF
jeje se me olvidaba esto para que funcione el codigo jeje
rs = cn.Exec("select * from Medicamentos")
END
[/code]