Compile error, With use of Dim MinDb As Database

[Fred]

In a Private Sub i want to sequence throug a datasett:

Private Sub Kommando31_Click()

Dim mindb As database
Dim mittsett As recordsett

Set mindb = DBEngine.workspaces(0).databases(0)
Set mittsett = mindb.openrecordsett("kunder")
mittsett.MoveFirst
Do Until mittsett.EOF
mittsett.EditMode
mittsett!Adresse = "Helgeroa"
mittsett.Update
Loop

End Sub

But i get compile error : User defined type not defiened

Can somone explain how to solve the problem ?
Any help would be greatly appreciated.
Thanks, Fred

 

[Allen Browne]

From the code window, choose References on the Tools menu.

Check the box beside:
Microsoft DAO 3.6

More info on references:
http://members.iinet.net.au/~allenbrowne/ser-38.html