VB in access

Hello , I need help on programming something, here is my situation: I have an access database wivo.mdb with tables and query's. I made a form with checks something in a query "QryIdentiekerecords". What is the proper way in VB to declare all this under a button in the form and see what is in the query? So far i have

Private Sub Knop3_Click()

Dim Wivodb As Workspace
Dim Wivo As Database
Dim QryIdentiekerecords As QueryDef
Dim rs1 As Recordset

Set Wivodb = DBEngine(0)
Set Wivo = Wivodb.OpenDatabase("e:\wivo\wivo.mdb", , True)
Set rs1 = Wivo.OpenRecordset(dbOpenSnapshot)

Wivo.Close
Wivodb.Close

The query is not empty and if i push the button on the form i get the message Error 3078 MS jet database engine cannot find the input table or query '4'. I know the path and the names are correct.

Basically , I want to know how to declare a database in vb and read/ plot the data of a query in a messagebox

Can't you just bind your form to the query?

A Ms Access sample..Hope U have time to read it And it's helpful to U..http://www.freevbcode.com/source/SQLTest.zip

no , i can't bind the query to the form, because i want to run a procedure that should be under the button in the form. The table written in the previous posting is a temperary table before it can update the real table it has to be submitted to a view checkups. Like this check : there is a collumn, that should increase by one if there exists a record in the real table that has the same set of values like the one in the temperary table apart from the index collumn.

these are the actual questions?
how can i let the contents of a query pop up in some sort of a box by pushing a button on a form? Is the way shown in my previous posting a good beginning or not? usage of DAO is prefered.

I have found a sample to access mdb file with DAO..8=) Good luck! Hope its helpful to U!
http://www.freevbcode.com/ShowCode.Asp?ID=1261