Run Time error '3709'

[JCORTEZ 0]

Pessoal alguem saberia me dizer o que significa o erro abaixo??

 

Run Time Error '3709'

 

The connection cannot be used to perform this operation.It is either

closed or invalid in this context.

 

Esta mensagem esta ocorrendo no Open da rotina abaixo, sendo que a conexão foi aberta para fazer o select

 

' Rotina de ConsultaPublic Function Consulta(ByVal NomeCri As String) As VariantDim AbrirConexao As StringSet rsPro = CreateObject("ADODB.Recordset")With rsPro.Open "select * from BATIZANDO where NOME_DA_CRIANCA=" & NomeCri & "", con, adOpenKeyset, adLockOptimisticIf .RecordCount = 0 Then    MsgBox "Criança Inexistente ", vbExclamation, "Erro"Else    frmBatismo.lblCod = !codigoEnd If    .CloseEnd WithEnd Function

 

se alguem puder ajudar ... agradeço :D

[jolienai 0]

coloca o codigo da conexão

[JCORTEZ 0]

Aí Vai espero que isto ajude :(

' inicio - preparação e conexão de bancoPublic Function Comeco()    Dim sConexao, sPath As String    DoEvents'Capturando o Diretóro Corrente    sPath = App.Path    sPath = sPath & IIf(Right$(Trim(sPath), 1) = "\", "", "\")    'Montando a String de Conexão com o Banco. Lembre-se, foi usado um arquivo de extensão UDL para montar essa String    sConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & "DBBATISMO-Versao2000.mdb;Persist Security Info=False"'Instanciando os Objetos de Conexão e Consulta a Banco    Set con = New ADODB.Connection    Set rs = New ADODB.RecordsetEnd Function

[cassitos 2]

faltou abrir a conexão, após instanciar:

con.ConnectionString = sConexaocon.Open

flws

[JCORTEZ 0]

OK, Cassitos valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Valeu pessoal http://forum.imasters.com.br/public/style_emoticons/default/joia.gif , obrigado pela ajuda de todos...

Problema resolvido

 

ate o próximo

 

:D