use desta forma

 

Dim rs as new adodb.recordset

Dim strSQL as string

strSQL = "Select * From Tb Where Cod = '" & text1.text & "'"

Set rs = cnn.execute(strSQL)

Pronto voce tem um recordset desconectado,  nao precisa fechar o rs.. pra ser executado novamente.

 

 

Pessoal.

Quero agradecer a todos a ajuda inestimável que me foram passadas.

Muito obrigado, mesmo.

Valeu muito.

 

Encerro o topico.