olha vc pode usar a propriedade filter:
Tb_Client.filter = "Cli_cod = 1"
ou se vc quiser usa um recordset temporário:
dim RsTemp as new Adodb.Recordset
Set RsTemp = Conexao.Execute("Select * from clientes where cli_cod = 1")
If not RsTemp.EOF Then Text1 = RsTemp("Cli_Cod") & ""
blz??
qq dúvida é só postar
t+