  public function Authenticate (email as string, password as string) as boolean
  
   	dim myDSN as String = ConfigurationSettings.AppSettings("ProjectPalDSN")
	dim mySQL as String = "Select count(*) from dbStaff where email = '" + email + "' and password = '" + password + "'"
	dim mySQLReader as SqlDataReader
	dim myConn As new SQLConnection(myDSN)
	dim mySQLCommand as new SqlCommand(mySQL, myConn)

	myConn.Open()
	mySQLReader = mySQLCommand.ExecuteReader()

    while (mySQLReader.Read()) 
       return( not (mySQLReader.GetInt32(0) = 0) )
    end while
	
	mySQLReader.Close
	myConn.Close

	Return ( False )
  
  end function
