Access - problemas con access 2000

La ejecución del siguiente código:Private Sub txtDni_Exit(Cancel As Integer)
Dim filas_3 As Recordset
Dim DBS As Database

Dim instruccion As String

instruccion = "select apellido1 from filiacion;"

Set DBS = CurrentDb

Set filas_3 = DBS.OpenRecordset(instruccion)

If Not filas_3.EOF Then

txtNombre = filas_3!Nombre
txtApellido1 = filas_3!Apellido1
End If
End Sub

me da error en: "set filas_3=dbs.openrecordset(instruccion) ". Y el error que me da es que "no coinciden los tipos". Pero yo toda la vida he hecho esto en Access 97 y no me da ningun error. Gracias.

Incluye la referencia Microsoft DAO 3.6 Objet library

Ya la tengo incluida, con eso lo que he conseguido es que pueda definir variables tipo Database, pero el error me lo sigue dando, a lo mejor me falta alguna referencia más, pero no lo se, estoy perdido.