Error en Visualbasic desde Acces 2002,al cargar dll

[dardd]

Saludos a todos los del foro,estoy probando visualbasic desde acces2002, tengo windows Xp con servicepack 2 y si intento ejecutar el siguiente codigo me da este error: EROR AL CARGAR DLL

Si abres el Modulo y Pinchas en herramientas-->referencias-->tengo marcada Microsoft DAO 3.6,he probado con la 2.51 y 3.50 pero nada no hay manera.Y la dll dao360 y 350 existen.

Public Sub objectesespecials2()
Dim bd As Database
Dim rs As Recordset
Set bd = CurrentDb --> ME DA EL ERROR EN ESTA LINEA
Set rs = bd.OpenRecordset("select * from empleat2 order by nom")
rs.MoveLast
MsgBox (rs.RecordCount)
rs.Close
Set rs = Nothing
Set bd = Nothing

End Sub

Alguien me puede echar un cable.
Gracias.