public sub buttonclick(object sender,EventArgs e)
cmdSQL.Commandtext = "Select * From login,addbook where login.userid=addbook.addno and userid='" & txtUserid.text & "' And password='" & txtPassword.text & "'"
Dim drdReader As SqlDataReader = cmdSQL.ExecuteReader()
if(drdReader.Read()=true) then
textbox.text=drdReader["usertype"].ToString()
end if
end sub