Aguem pode me ajudar a ver porque esta acontencendo este erro. o que esta errado.
este é a parte do codigo onde esta dando erro
Private Sub Form_Load()
'Trecho usado para a criação do Recordset
rstLocalizar.Open "select codigo, cliente, numero_nf, nome_doc, caminho" & _
" from Dados", conGED, adOpenStatic
If rstLocalizar.RecordCount <= 0 Then
MsgBox "Banco Vazio !!!", vbExclamation, "Erro"
Set rstLocalizar = Nothing
Exit Sub
End If
PreencheControles
'
End Sub
e este é o erro
Run-time erro ´3709´:
A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é invalida neste contexto.
Por favor me ajudem!!!!!!
este é o codigo que está no module
Option Explicit
'Variável usada para estabelecer a Conexão
Public conGED As New ADODB.Connection
Public PathMdb As String
Public Function AbreConexao(OrigemDados As String) As Boolean
On Error GoTo ErroConexao
AbreConexao = False
If conGED.State = adStateClosed Then
With conGED
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open ConnectionString:=OrigemDados
End With
AbreConexao = True
End If
Exit Function
ErroConexao:
End Function
