Visual Basic para Aplicaciones - select

Estimados latinos:
Tengo una tabla (Access) que tiene los campos CodigoDoCliente y NomeDeGuerra. El mi sistema exibi el NomeDeGuerra y necesito saber cual es el CodigoDoCliente. La instrución que hice está volviendo um valor inválido (está retornando el código de outro cliente). ¿Hay alguna cosa no conforme ?
Set tabela_clientes = bd.OpenRecordset("tabela_clientes")
selecao2 = "SELECT CódigoDoCliente FROM tabela_clientes WHERE tabela_clientes.nomedeguerra = 'CROMATO'"
Set tabela_cliente = bd.OpenRecordset(selecao2)
vCodigo = tabela_clientes.Fields("CÓDIGODOCLIENTE")

selecao2 = "SELECT CódigoDoCliente FROM tabela_clientes WHERE tabela_clientes.nomedeguerra =' " CROMATO' "
Tabela_Clientes.FindFirst selecao2
Vaciar a campos visuales (textBox, etc...)
Lo que pasa es que en ninguna parte haces la búsqueda, solo estas informando cuales son los datos que requieres....