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.