erro em função que conecta no banco de dados

[rafa-martin 2]

pessoal tenho um módulo que está fazendo minha conexão no banco. porém, está dando erro: na função de conexão:Public Sub Conecta_BD() Set conProdutos = New ADODB.Connection With conProdutos .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=\\192.168.0.139\SP\SOFT\METTA\Sistema_Metta_Shering.mdb" .Open End WithEnd Subaí quando eu executo mue programa ele dá esse erro:a conexão não pode ser usada para realizar esta operação. ela está fechada ou inválida neste contexto.nota: o banco está no servidor, portanto esse número é o ip do servidor.o que pode ser?valeu

[jolienai 0]

Access 2000? o iP do servidor está correto, o banco tenha senha????

[rafa-martin 2]

o access é 97 e não tem senha

[Rafael Portal 0]

Opa !

 

   Dim Caminho As String    Set Conexao = New ADODB.Connection    Conexao.CommandTimeout = 0    Conexao.ConnectionTimeout = 0    Caminho = "\\davi\CadGeral\CadastroTotal.mdb"    Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _                   "Data Source= " & Caminho & ";" & _                   "User Id=admin;" & _                   "Password=;"

Olha amigo, se você está fazendo a conexão via rede, tenta desta forma... Pelo o que eu sei não precisa colocar o IP do servidor... Abs.

 

Oks,

Rafael Portal