e ai alera blz?

meu projeto esta tudo funcionando normal, so que quando eu adiciono um form do crystal 9, quando mando rodar meu programa ele dah o seguinte erro

 

Run-Time error '3709'

A conecão não pode ser usada para realizar esta operação. Ela está

fecha ou é inválida neste  contexto.

 

o erro dah nesta linha
Set rst = New ADODB.Recordset
axsql = " select CodProduto as [Codigo], Produto as [Produto], Descricao as [Descricao], Prevenda as [Preço], QtdAtual as [Quantidade] from Produtos"
rst.Open axsql, conexao, adOpenKeyset, adLockPessimistic

 

aguardo resposta

agradeço desde jah

Olá! O problema não está nesse trecho, dá erro nessa linha pois a conexão é inválida e você está tentando utilizá-la. Coloque aqui o trecho anterior para a gente ver se você está fazendo algo errado para abrir a conexão.

 

Abraço!

Sub Abrir_Banco()
Set conexao = New ADODB.Connection
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
             App.Path & "Bancoestoque.mdb"

?????????

Olá! Aparentemente está correto, verifique se a conexão está aberta antes de tentar abrir o Recordset.

 

If conexao.State = adStateOpen Then
    MsgBox "Conexão aberta!"
Else
    MsgBox "Conexão fechada!"
End If

 

Faça um Debug no seu código para verificar se em alguma parte a conexão está sendo fechada antes de abrir o Recordset.

Abraço!