Access - Error 3251 en tiempo de ejecución en Access

Hola,
Soy novato en Access

Se me está presentando un error cuando divido una base de datos, en el siguiente código:

Private Sub Anio_LostFocus()

Dim Db As DAO.Database
Dim Rst As DAO.Recordset

Set Db = CurrentDb()

Set Rst = Db.OpenRecordset("Comisiones", dbOpenDynaset)
Rst.Index = "PrimaryKey"

Rst.Seek "=", [DT], [Numero_de_comision], [Anio] 'Campos del formulario
If Not Rst.NoMatch Then

MsgBox "Este No. de comisión para este año en esta territorial ya existe!! Por Favor Verificar.", vbiinformation
Cancel = True

End If
Rst.Close
Db.Close

Set Rst = Nothing
Set Db = Nothing

End Sub

En la linea: Rst.Index = "PrimaryKey"
Se me detiene el depurador

Alguien me puede colaborar.

El error se presenta al dividir la base de datos. cuando la trabajo sin dividir no genera inconveniente.
Gracias al que me pueda colaborar.

Creo que el error esta en esta línea:

Set Db = CurrentDb()

Según ella la referencia se hace contra la base de datos actual (utilizaría las tablas vinculadas) y las tabas vinculadas (desde VBA) no acceden a los índices.

Para que funcione Seek, se ha de hacer la referencia a la base de datos original (saltándose la vinculación).

Como te digo, soy novato.

Entonces que debería colocar para que funcione correctamente??

¿Lo que has posteado lo has tomado de alguna parte o es de 'producción propia'?....