Dúvida Bizarra

[Señor Smoke]

estou com um problema chatinho aqui. Eu to criando um record set pra poder listar o resultado de uma consulta em um datagrid, até aí beleza.

Rodo minha aplicação, clico no botao pra gerar os resultados no datagrid, tudo certinho....mas se eu clico em outro botao ou se tento clicar no mesmo botao de novo, dá erro porque a variável record set já tá aberta. Não estou conseguindo contornar esse erro.

Por enquanto só sei fazer o código assim:

Private Sub Block_op_Click()

SQL = "Select Op_Final as Operadora, count(*) as Bloqueios From COBILLING_BLOQUEIOS Where Data_Desbloqueio Is Null Group by Op_Final"

Rs.CursorLocation = adUseClient

Rs.Open SQL, Con, adOpenForwardOnly

Set DataGrid1.DataSource = Rs

End Sub

alguém sabe um jeito melhor, um que não dê esse erro e eu possa então clicar novamente nos mesmos botões sem problemas.....

[]s

[Graymalkin]

Verifique a propriedade State do Rs para saber se o mesmo já está aberto, e caso positivo, feche-o.

Abraços,

Graymalkin

[Señor Smoke]

Tentei isso, mas não tá dando certo:

If Rs2.State.Open Then

Rs2.Close

Set Rs2 = Nothing

End If

SQL = "Select * from cobilling_bloqueios where Data_Desbloqueio is NULL"

Rs2.CursorLocation = adUseClient

Rs2.Open SQL, Con, adOpenForwardOnly, adLockPessimistic

Set DataGrid1.DataSource = Rs2

Gera.Enabled = True

End Sub

Eu não to sabendo verificar a propriedade status do record set, acho que é erro de sintaxe. Já tentei varias coisas, tá sinistro, me dá uma luz ai Graymalkin

[]s

[Graymalkin]

Não é assim...

If Rs2.State.Open Then

... e sim dessa forma:

If Rs2.State = adStateOpen Then

Abraços,

Graymalkin

[Señor Smoke]

Cara muito obrigado mesmo!!