ghost, tentei o seguinte comando e mesmo assim não deu certo, o q q eu to fazendo errado?
dim cnncomando as new adodb.command
dim rsselecao as new adodb.recordset
with cnncomando
.activeconnection = cnn
.commandtype = adcmdtext
.commandtext = "SELECT * FROM Pacientes WHERE RGR ISNULL;" 'ja de erro nessa linha, pq não acha nada, fala q falta operador
set rsselecao = .execute 'e da erro aqui nessa pq não foi pesquisado nada
end with
if rsselecao.eof = true then exit sub
rsselecao.moveMin
do until rsselecao.eof
list1.add rsselecao.fields(0)
rsselecao.movenext
loop
saberia dizer onde eu estou errando?
