Access - ir a registro aleatorio

Tengo una consulta con un montón de registros, pues bien he hecho un formulario que muestra esos registros. A este formulario le he puesto un botón para que cuando le pulses en vez de mostrar el registro siguiente, te muestre un registro de forma aleatoria... el código que le he puesto es el siguiente:
Private Sub SiguientePregunta_Click()
Dim mibase As Database
Dim mitabla As Recordset
Set mibase = CurrentDb
Set mitabla = mibase.OpenRecordset("Preguntas Nivel 1", DB_OpenDynaset)
mitabla.Move (Rnd(100))
mitabla.Close
End Sub

El caso es que me da error en Dim mibase As database (se nota que estoy empezando), concretamente me dice:
Error de Compilación
No se ha definido el tipo definido por el usuario
¿Cuantas cosas estoy haciendo mal?
Gracias por vuestra ayuda.

Asegurate que tienes activada la casilla de Microsoft DAO 3.51 Objet Library en Herramientas/Referencias de la barra de menus cuando esta en la ventana del codigo. Si no la tienes activada hazlo, pues cuando utilizas codigo DAO debe de estar activada.

Chico, pues la intento marcar y me dice que no encuentra la librería dll... debo tenerlo todo mal...no sabrás dónde la puedo encontrar?
(tengo el original del access 2000 profersional...lo vuelvo a instalar?)
Mil gracias por tu ayuda.

Hola
Prueba con esto, tendrás que depurar cosas, pero, funciona
Dim pos
Randomize
Me.RecordsetClone.MoveLast
pos = Int((rnd * Me.RecordsetClone.RecordCount) + 1)
Me.RecordsetClone.MoveFirst
Me.RecordsetClone.Move pos
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.Id.SetFocus
Siendo Me.Id el nombre de uno de los campos de tu form
Victoria

Gracias a los dos...
Victoria esto funciona a las mil maravillas... un saludo