Run Time error '3709'

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