Postada em 28/02/2011 10:51 hs
Olá pessoal, vê se podem me ajudar, estou conectando um banco de dados access com senha.
Public Function Conecta(ByVal Valor As Boolean)
If conexao.State = 1 Then
conexao.Close
Set conexao = Nothing
Valor = True
End If
If Valor = True Then
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Criminalidade.mdb;password=info;" 'ESTOU FAZENDO A CONEXÃO ASSIM POREM NÃO ESTÁ FUNCIONANDO.
Else
conexao.Close
Set conexao = Nothing
End If
End Function
|
