Cr1Pt0r

Tenho um banco de dados em acess chamado "bancodainfo.mdb" que tem uma tabela chamado "PImonitores" e varios campos, mais como exemplo vamos colocar 3 deles "codigo","produtos", "saldo". Entaum este banco lista todos os produtos na ordem numerica do campo codigo mais gostaria de fazer com que mostrasse apenas os produtos com saldo (maior ou = a 1). Amigos como faço isso ja tentei varias vezes e naum obtive sucesso. Um abraço comunidade!!!

-------------------------------------------
Conexão do banco de dados
-------------------------------------------

<%
cntCaminho = Server.MapPath("bancodainfo.mdb")
set conexaodb = Server.CreateObject("ADODB.Connection")
conexaodb.open "driver={Microsoft Access Driver (*.mdb)};dbq=" &cntCaminho
Dim conexaodb, strNRegistros, rsNRegistros
Dim strTodosprodu, rsTodosprodutos
Dim rsCat, strCat, numCat
strNRegistros = "SELECT COUNT(codigo) AS numLivros FROM PImonitores "
Set rsNRegistros =conexaodb.Execute(strNRegistros)
strTodosprodu = "SELECT * "
strTodosprodu = strTodosprodu & "FROM PImonitores "
strTodosprodu = strTodosprodu & "ORDER BY codigo"
Set rsTodosProdutos =conexaodb.Execute(strTodosProdu)
%>

-------------------------------------------
Termos de inicio para o loop
-------------------------------------------

<%
DO While Not rsTodosProdutos.Eof
%>

-------------------------------------------
Link para o banco de dados
-------------------------------------------

<% = rsTodosprodutos.fields("produtos") %>

-------------------------------------------
Termos para o final do loop
-------------------------------------------

<%
rsTodosProdutos.MoveNext
Loop
%>

---------------------------------------------------