Ajuda em Instrução SQL..

Boa tarde a todos, Tenho 6 tabelas no qual 1 delas relaciona-se com as outras cinco, eu uso somente componentes query, eu faço 6 instruções SQL para preencher meu cadastro de clientes, como exemplo resumido abaixo;

Dm.Qr_Clie.SQL.Add(´Select * From TabRef_Com´);
Dm.Qr_Clie.SQL.Add(´Where Cod_Cliente =+´+Cod_Cli.text+´´);

Dm.Qr_Clie_Pes.SQL.Add(´Select * From TabRef_Com´);
Dm.Qr_Clie_Pes.SQL.Add(´Where Cod_Cliente =+´+Dbt_Codigo.Caption+´´);

Dm.Qr_Clie_Jur.SQL.Add(´Select * From TabRef_Com´);
Dm.Qr_Clie_Jur.SQL.Add(´Where Cod_Cliente =+´+Dbt_Codigo.Caption+´´);

Dm.Qr_Clie_Ref_Ban.SQL.Add(´Select * From TabRef_Com´);
Dm.Qr_Clie_Ref_Ban.SQL.Add(´Where Cod_Cliente =+´+Dbt_Codigo.Caption+´´);

Dm.Qr_Clie_Ref_Com.SQL.Add(´Select * From TabRef_Com´);
Dm.Qr_Clie_Ref_Com.SQL.Add(´Where Cod_Cliente =+´+Dbt_Codigo.Caption+´´);

Dm.Qr_Clie_Ref_Pes.SQL.Add(´Select * From TabRef_Com´);
Dm.Qr_Clie_Ref_Pes.SQL.Add(´Where Cod_Cliente =+´+Dbt_Codigo.Caption+´´);

Dm.Qr_Clie_Socios.SQL.Add(´Select * From TabRef_Com´);
Dm.Qr_Clie_Socios.SQL.Add(´Where Cod_Cliente =+´+Dbt_Codigo.Caption+´´);

Se alguém souber uma maneira mais simples de se fazer isto, eu ficaria muito agradecido.
Meu banco de dados e ACCESS.

Ah! no meus relacionamentos eu nem coloquei integridade, porque mesmo que eu gravasse primeiro na minha Tab_Clie, depois eu gravava nas demais, mais ai ele não permitia eu gravar novamente na minha tab_Clie usando Edit;

Jelves