I suspect its this part:
Code:LoggedinUserLevel = DReader("SecurityLevel") LoggedinUser = DReader("Username") If dr.Read() = True Then MsgBox("Welcome back !") Me.Hide() frmMainMenu.Show() Else MsgBox("Login Failure") dr.Close() con.Close()
I removed the "Dreader" part and the login worked fine, but I need the securitylevel part to be in. Also the following variables:
LoggedinUserLevel = DReader("SecurityLevel")
LoggedinUser = DReader("Username")
Are in a module so they will be recognised everywhere.
If it helps I can send you the form and the database if you want.




Reply With Quote