[Resolvido]abrir dados selecionados em uma caixa não acoplada

Boa noite Srs
estou colocando aqui meu BD, para que pudessem me auxilar em uma questão! no formulário consultaos, existe uma lista de os em aberto, e acima uma caixa onde vc pesquisa direto pelo numero da os. Ate aqui ok, o problema estou encontrando quando seleciono o numero da os puxa somente os dados do cliente, e não a parte do serviço realizado, defeito e outras informações da Os. Mestres poderiam novamente me auxiliar nesta questão e me instruir onde eu estava errando ?

desde já agradeço srs

Vlw
https://dl.dropboxusercontent.com/u/99489890/cad.rar

Veja se resolve....

Sub CarregaDados()
Me.txtservreclamado = DLookup("ServReclamado", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.txtServExecutado = DLookup("servexecutado", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.txtdefeito = DLookup("Defeito", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.txtequipamento = DLookup("Equipamento", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.txtcontato = DLookup("Contato", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.txtdtsolicitacao = DLookup("DtSolicitacao", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.txtValorPeca = DLookup("ValorPeca", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.txtValorServico = DLookup("ValorServico", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.txtvalortotal = DLookup("ValorTotal", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.cboosfinalizado = DLookup("OsFinalizado", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))
Me.txtOrdemServico = DLookup("OrdemServico", "consutaos", "CodCliente =" & Me.lstClientes.Column(0))

Silvio perfeito!
só me corrige se eu estiver errado , eu tinha que referenciar com o codcliente era isso que estava errando  ?
obrigado amigo pela ajuda!
finalizando o topico

finalizado! obrigado amigo

Boa tarde...

sim você tinha que referenciar o codcliente.