Access rights!!!!

[THEAF]

hi,
im trying to create access rights on my project. i have a form with check boxes so when ticked it will dissable the user from having access to that area, i am using a list box with this so you can select the access rights for different users. the thing is i keep getting problems. this is my list code:

LISTBOX

rs2.FindFirst "StaffID=" & Str(List1.ItemData(List1.ListIndex))
 
Text1.Text = rs2!StaffID
chkStaff.Value = rs!Staff
chkBooking.Value = rs!Booking
chkStock.Value = rs!Stock
chkIncome.Value = rs!Income
chkPayment.Value = rs!Payment
chkLogin.Value = rs!Login
chkContact.Value rs!Contact
Text1.Text = rs!User
 

FORMLOAD

Dim db As Database
Dim rs As Recordset
Dim rs2 As Recordset
Dim db2 As Database
Form_load
    Set db2 = OpenDatabase("E:\skol\A2 Computing\Speedy Pizza database.mdb")
    Set rs2 = db2.OpenRecordset("Staff", dbOpenDynaset)
If Not rs2.EOF Then rs2.MoveFirst
 
Do While Not rs2.EOF
    List1.AddItem rs2!StaffID
    List1.ItemData(List1.NewIndex) = rs!StaffID
    rs.MoveNext
Loop
 
    Set db = OpenDatabase("E:\skol\A2 Computing\Password.mdb")
    Set rs = db.OpenRecordset("Access_Rights", dbOpenDynaset)
If Not rs.EOF Then rs.MoveFirst
 
Do While Not rs.EOF
    rs.MoveNext
Loop
 

im trying to get info from one table add some info from another table and save this on a new table. I keep getting the error "object variable or with block not set"
can you please help. Can anyone think of an SQL statement that i can use.
THANK YOU

[Bum]

are you adding a reference to the Microsoft Office [version] Access Library?

[THEAF]

are you adding a reference to the Microsoft Office [version] Access Library?

Sorry but i don't get what your sayin.
are you sayin if im using the reference Microsoft Office Access Library or somfing.

[lotus18]

At which line do you get an error?