Erro ao abre Bco em Access

[Lademar 0]

:mellow: Bom dia .Ao executar um aplicativo ocorre o seguinte erro e para na linha :Linha : cn.Open ConectaAccessErro : Run-time error'- 2147217805(80040e73)':A sequencia de inicializacao especificada naoesta de acordo com a especificacaoGrato a quem puder ajudar...Lademar SSlademarr@hotmail.com

[cassitos 2]

o que é este Linha: ?

o que ConectaAccess está recebendo antes de ser utilizada no open da conexão?

[Lademar 0]

Bom dia.Antes do cn.open conectaAccess vem eessa rotina que esta no moduloOption ExplicitGlobal cn As ADODB.ConnectionGlobal rs As ADODB.RecordsetPrivate Sub MAIN()Dim strArquivo As StringDim strLocal As StringDim ConectaAccess As StringDoEventsSet cn = New ADODB.ConnectionSet rs = New ADODB.RecordsetstrArquivo = "ControleAcesso.mdb"strLocal = App.PathSet cn = CreateObject("ADODB.Connection")ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)}," & _"Dbq=" & strArquivo & ";" & _"DefaultDir=" & strLocal & ";" & _"Uid=Admin;Pwd=;"cn.open ConectaAccess

[cassitos 2]

boa tarde,

 

a string de conexão pode não estar correta, veja um exemplo p/ Access neste site: http://www.macoratti.net/con_ado.htm

 

remova o DefaultDir, e põe o diretório do banco no parâmetro Dbq.

 

DefaultDir é uma propriedade do ADO se não me engano.

 

flws