caí num loop infinito

Quero que a tela de vendas faça busca atravez do tipo do produto,mas para isso,teria que ehcner o flexgrid com todos produtos do tipo selecionado,eu usei o seguinte código no evento lostfocus da combobox:If cbotipo <> "" Then strsql = "select * from estoque where tipo_prod = '" & cbotipo & "' "x = 1 ''>>Variável usada apenas incrementar o numero de linhaslinha = 0 ''>>Variável para determinar o numero da linhacoluna = 0 ''>> Variável usada para determinar o numero da colunaWith flex Do While Not rs.EOF >>>>> flex.TextMatrix(linha, coluna) = rs![cod_prod] coluna = coluna + 1 flex.TextMatrix(linha, coluna) = rs![produto_prod] coluna = coluna + 1 flex.TextMatrix(linha, coluna) = rs![tipo_prod] coluna = coluna + 1 flex.TextMatrix(linha, coluna) = rs![quantidade_prod] coluna = coluna + 1 flex.TextMatrix(linha, coluna) = rs![preco_venda] coluna = 0 x = x + 1 linha = linha + 1 flex.Rows = .Row + x LoopO que acontece...No momento em que a combobox perde o foco,aparece um scroll no lado direito da Flex apenas e o VB trava.Colocando uma msgbox linha no final antes do loop (para mandar mensagens avisando em qual linha está),dá pra notar ele enchendo a flex.Mas o problema,é que ele ta enchendo a Flex com um loop infinito,não vai parar nunca!E pra piorar,ele ta enchendo sempre com o mesmo produto,tenho 5 produtos cadastrados como tendo sendo do mesmo tipo,deveriam aparecer estes 5 e pronto,mas sabe-se lá porque ele apenas enche a Flex com o mesmo sempre.