[Resolvido]Aviso de estoque baixo

Bom dia
usei um exemplo aqui do forum para ajudar um amigo, so que agora ele me pediu para incluir no exemplo um aviso de estoque baixo, eu useri o seguinte codigo no evento Apos Atualizar da Listbox.

Código:

If txtStock.Value < TxtMinimo.Value Then
    MsgBox "Quantidade Minima Atingida.", vbExclamation, "Gestão de Estoque"
    Exit Sub
    End If

que compara o estoque minimo informado com o estoque atual. Mais ai veio o problema porque nao esta funcionando direito, em alguns produtos mesmo com estoque maior que o minimo a mensagem ta startando, nao consegui resolver pois esta muito estranho tipo:

1 item que tem seu estoque minimo 4 e estoque atual 11 esta dando a mensagem de estoque baixo, mais se eu altero o estoque minimo para 1 e deixo o estoque atual em 11 para a mensagem.

se alguem puder me ajudar fico grato.

Boa noite.
Aqui está tudo ok.
Deleta esse e refaz

Voce tentou clicar no item teste do Exemplo que eu mandei.

ele esta com estoque atual 11 e estoque minimo 4 e esta dando a mensagem de estoque baixo.

Up

Estou mexendo em modo design, mas não encontro o campo estoque minímo.

Bom dia
No frmEconomato Tem 1 caixa de texto que puxa a quantidade em estoque que é txtStock e 1 que puxa o minimo em estoque que é a TxtMinimo da Tabela tblProdutos, conforme imagens:

Engraçado, ele não aparece Aquiles posicionando ele posicionando a logo para trás.

Bom dia pessoal, consegui resolver aqui.
eu estava buscando as informações direto da tabela quando criei uma consulta e busquei as informações de la acabou o problema.

Meu amigo desculpe não te retornar para ajudar é porque os setores de serviço social estão em mudança então eu fiquei para verificar todos os sistemas aí não não tive tempo de entrar para ver.
Sucesso