Visual Basic - 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")

Prueba de la siguiente forma:

Dim tabela as RecordSet

Set tabela=bd.OpenRecordSet("SELECT CodigoDoCliente FROM tabela_clientes WHERE tabela_clientes.nomedeguerra='CROMATO';",dbopenSnapShot)

vCodigo=tabela.CodigoDoCliente

tabela.Close