Problemas al abrir access desde vb.net

[serbc24]

Hola a todos:

Tengo un litsado hecho en access y cada vez que lo llamo desde vb.net siempre me da el mismo error:

Excepción no controlada del tipo 'System.Exception' en Afiliados.exe

Información adicional: No se ha podido abrir el informe
Informe FICHA-AFILIADO
Fichero: \Afiliados\data\bd.mdb
Motivo: Microsoft Office Access no puede abrir la base de datos porque falta o porque está abierta de forma exclusiva por otro usuario.

He comprobado y no esta abierta en modo exclusiva, y si esta en esa ruta, puede ser el problema de que estoy utilziando ODBC, y para abrir el listado no, si es que eso me gustaria saber como abrir el listado de access en modo ODBC, os pongo el codigo como abro el listado

Private Sub FichaAfiliado()
Dim ab = Me.txtNumRegistro.Text
ImprimirDocumentoAccess("\Afiliados\data\bd.mdb", "FICHA-AFILIADO", "NUMREGISTRO=" & ab)
End Sub

'Funcion para abrir documento access

Public Sub ImprimirDocumentoAccess(ByVal FicheroAccess As String, ByVal Informe As String, ByVal Where As String, Optional ByVal VistaPrevia As Boolean = True)
Dim objAccess As Object = CreateObject("Access.Application")
Try
objAccess.OpenCurrentDatabase(FicheroAccess, False, "ff89ol3a")
If VistaPrevia Then
objAccess.Visible = True
objAccess.DoCmd.OpenReport(Informe, 2, , Where)
Else
objAccess.Visible = False
objAccess.DoCmd.OpenReport(Informe, 0, , Where)
End If
Catch oException As Exception
Throw New Exception("No se ha podido abrir el informe" & vbNewLine & "Informe " & Informe & vbNewLine & "Fichero: " & FicheroAccess & vbNewLine & "Motivo: " & oException.Message)
Finally
System.Runtime.InteropServices.Marshal.ReleaseComO bject(objAccess)
objAccess = Nothing
End Try
End Sub

Muchas Gracias