[VB6] Consultas numa BD do Access em SQL

[FaT`]

Boas pessoal, eu queria fazer uma consulta a uma base de dados em access através de comandos SQL com a ferramenta Data, tendo posteriormente um DBGrid a mostrar os dados do Data. O que acontece é que não me aparecem dados nenhuns nas consultas que faço, penso que será um problema de sintaxe, apesar de não saber ao certo.

Private Sub CmdSearch_Click()
Dim xNomeFilme, xAno
Dim WhereText


    If TxtNomeFilme.Text <> "" Then
        xNomeFilme = TxtNomeFilme.Text
        WhereText = WhereText & " [Nome Filme].Filmes = " & Chr(34) & xNomeFilme & Chr(34) & " and"
    End If
    
    If TxtAno.Text <> "" Then
        xAno = TxtAno.Text
        WhereText = WhereText & " [Ano] = " & xAno
    End If
    
    
    Data1.RecordSource = "SELECT * FROM Filmes WHERE " & WhereText
End Sub

Nota: chr(34) = " (aspas)

Desde já obrigado.

[Tiago Salgado]

Experimenta por um Data1.Refresh após o .RecordSource

[jluisfer]

Não te esqueças de ter algures a seguinte instrução

me.data1.databasename=caminho_bd,sem isso ele não faz a minima ideia do que queres consultar

e depois do REcordsource como o Tiago Salgado disso tens de ter a instrução data1.refresh