Visual Basic - coneccion con base de datos

Hola a todos:

Se me esta presentando un error y no se que hacer

Estoy usando la coneccion a una base de datos de acces y al meter los siguientes parametros me marca error type mismatch y no se porque , corro una de mis aplicaciones anteriores y no me marca ningun error

este es el codigo:

Option Explicit
Dim db5 As Database, rs5 As Recordset, nomatch As Boolean

Private Sub Command1_Click()
Set db5 = OpenDatabase("c:\autodata\Griffith.mdb")

' aqui es donde me marca el error de type mismatch
----> Set rs5 = db5.OpenRecordset("select * from acceso")
rs5.Close
End Sub

que podria ser porque ya me saco de quisio.

gracias por su ayuda

Prueba a poner esto delante de la conexion de la base de datos,o sea quedaria asi:
SET DB5=Workspaces(0).OPENDATABASE(LA RUTA DONDE ESTE)

No se pruebalo,asi a mi me va,pon un mensaje en el foro si te ha funcionado.
Suerte y un saludo.

Revisa la configuracion regional y fijate si tiene la misma de donde fue creada la base de datos.