Pesquisa de Campo

[ViniciusSantos]

Boa tarde a todos. Sou iniciante em programação e dentre minhas possibilidades encontrei um determinado erro que infelizmente não consegui a solução ainda!

Estou desenvolvendo um programa simples para controle de registros de documentos
Dentre as funções do programa em um determinado momento eu preciso gerar um relatorio dos documentos que estão em determinados locais chamados de PDD

Cada PDD é uma coluna no access! 

o mesmo programa foi desenvolvido em excel e funciona perfeitamente. porem de momento surgiu tal necessidade!

 

O comando abaixo mostra o que esta sendo feito e gerando o erro!
Daria certo se eu trocasse o  ( rs.Open "Select *from Base where pdd='X'", db, 3, 3) por  rs.Open "Select *from Base where PDD_02='X' ", db, 3, 3

 

porem não é viavel tendo em vista que existem 60 pontos

Sub PesquisaPDD()
    ListView2.ListItems.Clear
    Dim pdd As Variant
    
    pdd = Form1.cmbpdd.Text
    
    Call ConectaDB
        rs.Open "Select *from Base where pdd='X'", db, 3, 3
                
            Do Until rs.EOF
                Set Item = ListView2.ListItems.Add(, , rs!Codigo)
                Item.SubItems(1) = "" & rs(2)
                Item.SubItems(2) = "" & rs(3)
                Item.SubItems(3) = "" & rs(4)
                Item.SubItems(4) = "" & rs(5)
                
                
              rs.MoveNext
            Loop
            
        Call FecharDB
End Sub

[wootzor]

Não percebi o que pretendes fazer. De qualquer forma, falta-te um espaço entre o * e a cláusula FROM no texto da consulta:

Select *from Base where pdd='X' 

devia ser 

Select * from Base where pdd='X'