Sub btnFindEmail_Click(sender As Object, e As ImageClickEventArgs) 

	dim myStaff as new projectpal.bo.bostaff
	dim staffData as new projectpal.bo.structStaff
	
	if myStaff.Authenticate(txtEmail.text, txtPassword1.text) then

		staffData = myStaff.Detail(txtEmail.text)

		txtFirstName.text = staffData.firstname
		txtLastName.text = staffData.lastname

	end if


End Sub
