Pessoal como fazer uma consulta sem ter que fechar o banco...

estou usando assim... mais acho que nao é o certo..

      If TB_Client.State = adStateOpen Then TB_Client.Close
        Set TB_Client = New ADODB.Recordset
        TB_Client.CursorLocation = adUseServer
        TB_Client.CursorType = adOpenStatic
        TB_Client.LockType = adLockOptimistic
        TB_Client.Open "select * from clientes Where Cli_Cod =" + Cod_cli + ";", Cnn
        Text1 = TB_Client.Fields("Cli_Cod")
     

mais sera que tem uma sem fecha o banco?

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+

 

 

obrigado pessoal