Access - Se ha producido el error '438' en tiempo de ejecucion

Estimados Sres.:

Tengo problemas al querer explorar una ruta en un Archivo de Acces cuando quiero abrir el cuadro para explorar la ruta me sale "Se ha producido el error 438 en tiempo de ejecucion" tengo Office 2010 le doy depurar y me resalta la siguiente linea de comando en amarillo. (CommonDialog1.CancelError = True)

si alguien me puede ayudar a solucionarlo se lo agradeceria mucho. Gracias de ante mano.


Sub cargar()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler

CommonDialog1.Flags = cdlOFNHideReadOnly

CommonDialog1.Filter = "Base Data File " & _
"(*.bdf)|*.bdf|Base Data File(*.bdf)|*..dbf"

CommonDialog1.FilterIndex = 2
CommonDialog1.FileName = NameFilterFile
CommonDialog1.ShowOpen
FileN = CommonDialog1.FileName
Select Case Op
Case 1
Me.txt_DNomina = FileN
Op = 0
Case 2
Me.Devengado = FileN
Op = 0
Case 3
Deduccion = FileN
Op = 0
Case 4
Me.Fuente = FileN
Op = 0
Case 5
Me.Nombramiento = FileN
Op = 0
Case 6
Me.Titulo = FileN
Op = 0


End Select

Exit Sub
ErrHandler:
' El usuario ha hecho clic en el botón Cancelar
MsgBox Err.Description
Exit Sub



End Sub