Access - HELP me! Como crear un data link!!!

Function Conecta_ACCESS(Conexion As ADODB.Connection, AperturaExclusiva As Boolean) As Boolean

Dim strCnn As String

On Error GoTo errorConecta_ACCESS

Conecta_ACCESS = False

NombreDB = "C.\NombreBD.MDB"

If Dir(NombreDB) <> "" Then

    ' Abre una conexión.

    Set Conexion = New ADODB.Connection

    'Para conectar con BD Access 2000 usar el proveedor Microsoft.Jet.OLEDB.4.0.

    'Para conectar con Access 97 usar Microsoft.Jet.OLEDB.3.51

    Conexion.PROVIDER = Microsoft.Jet.OLEDB.4.0

    If AperturaExclusiva Then

       'Se abrira la conexion en modo exclusibo

        Conexion.Mode = adModeShareExclusive

    Else

        Conexion.Mode = adModeUnknown

    End If

    Conexion.Open NombreDB, "admin", ""

    Conecta_ACCESS = True

Else

    MsgBox "Base de datos no activa.", vbExclamation, "Atención"

End If

Exit Function

errorConecta_ACCESS:

    If Err = 3343 Or Err = -2147467259 Then

        MsgBox "Base de datos dañada.", vbCritical, "Base de Datos"

        Conecta_ACCESS = True

    Else

        MuestraError "Conecta_ACCESS", Err, Error

    End If

End Function