URGENTE Abrir BD Access 2000

trata con esto :

Public Function AbreConexionLocal() As Boolean
Dim strCnn As String
Dim strError As String
Dim strFuente As String

On Error GoTo McError

Debug.Print "* Conectando MDB Local..."

AbreConexionLocal = False

Set adocnnServ = New ADODB.Connection

strFuente = "C:\NominBD.mdb" ' Path BD

strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source = " & strFuente

adocnnServ.ConnectionString = strCnn
adocnnServ.Open

If adocnnServ.State = adStateOpen Then
Debug.Print "* Conexion MDB Exitosa!!!!"
AbreConexionLocal = True
End If
Exit Function

McError:
strError = Err.Description
strError = "Ocurrio un error al tratar de conectarse al archivo
NominBD.mdb, " & vbCrLf & _
"Verifique que archivo este instalado o no este corrupto."
MsgBox strError, vbCritical, "Error Conexión"
End Function

suerte...

"J. Fernández" wrote in message
news:urvIz%

Hola amigos, tengo que abrir una base de datos Access 2000 y me da error

de

formato en base de datos. Antes accedía a una BD Access 97, y utilizaba el
siguiente código:

Set Dbs = OpenDatabase("C:\Nominas\NominBD.mdb", False, False,
";PWDe9987")

ahora como tengo que hacerlo.

Tengo el MDAC 2.6 instalado.

Gracias.