Prova a inserire la linea

CnDb.CursorLocation = adUseServer

prima della Open della Connection (ovvero prima della CnDb.Open ...)