Visualizar dados vinculados através de um DBGrid

[renatoigleice]

Olá pessoal!

Estou com problemas em visualizar os dados de uma tabela vinculada em um DBGrid.

Tenho uma tabela "Tab_CadastroClientes", com um campo chave "Controle".

Tenho uma outra tabela chamada "Tab_Endereço", relacionada a anterio através do campo "Controle".

Bom, quando eu mudo de registro, gostaria que o DBGrid mostrasse apenas os registros que tem o mesmo Controle.

O DataSource do DBFrid esta vinculado a um "Data Control", e este não esta amarrado a nenhuma Base de dados e a nenhuma tabela por consequência...

Estou tentando amarrar meu código entre um "txtControle" do form, a uma SQL que deveria alimentar o "Data Control", conforme descrito abaixo:

Private Function stTabEndereco()

Set BancoDeDados = OpenDatabase(App.Path & "\db.mdb")

Set TBEndereço = BancoDeDados.OpenRecordset("Tab_Endereço", dbOpenTable)

Data2.RecordSource = "SELECT * FROM Tab_Endereço WHERE Controle = " & txtControle)

End Function

E para chamar esta função, eu utilizo os botões de navegação "Anterior" e "Próximo":

Private Sub cmdAnterior_Click()

TBDetento.MovePrevious

If TBDetento.BOF = True Then

TBDetento.MoveNext

cmdAnterior.Enabled = False

cmdProximo.Enabled = True

cmdProximo.SetFocus

End If

AtualizaFormulário

cmdProximo.Enabled = True

stTabEndereco

End Sub

Se alguém souber como arrumar esse código, o como devo executar, por favor me ajudem...

Agora, eu não sei muito de VB não, então não expliquem como se fosse para alguém com experiência...

Obrigado!

[kuroi]

renato, mas o q ta acontecendo de errado com esse codigo??

se o campo controle é do tipo texto, você teria q passar com aspa simples:

Data2.RecordSource = "SELECT * FROM Tab_Endereço WHERE Controle = '" & txtControle & "'")