Access - Abrir un Objeto DAO

Hola tengo este codigo:

Function AbrirBD()
Set db = OpenDatabase("PRODUCCIO.mdb")
Set rec = db.OpenRecordset("Select ref.velocitat,ref.R2001_PromedioDeRENDREF from ref,entradacomandes where ref.referencia= entradacomandes.Referència")
End Function

y me da error en el nombre de la Base de datos. Dice que no la encuentra y esto programando en ella misma, puede ser ese el fallo??

lo siento era un error de ruta, pero lo que si me da es un error de bloqueo de tabla y solo la abro yo, si quito el codigo funciona y si no no, pq???

dbopendynaset en tipo de tabla para
EJ
Tabla.OpenRecorset ("CLIEBNETS",DbOpenDynaset)