Visual Basic - ERROR: NO COINCIDEN LOS TIPOS

Hola tengo un problema pues declaro una bd asi
Dim BD As Database
Dim registro As Recordset
Set BD = OpenDatabase("c:\bds\ventas.mdb")
Set registro = BD.OpenRecordset("compras")
y me marca error que no coinciden los tipos en esta linea
Set registro = BD.OpenRecordset("compras")
ya agregue la dao library 3.51
ya cheque y todo esta bien, que me falta agregar?
Gracias!

Checa que no tengas referenciada la librería ADODB. Intenta declarar tus objetos con el prefijo DAO.:

dim BD as DAO.Database