Dim Myadapter1 As New MySqlDataAdapter
        Dim sqlquary1 = "SELECT * FROM mjbb_users WHERE username='" & UsernameTextBox.Text & "'AND password='" & RadTextBox2.Text & "';"
        Dim command1 As New MySqlCommand
        command1.Connection = MySqlConnection

 If PasswordTextBox.Text = "" Then RadLabelError.Text = "Please Enter Your Password!"
        If PasswordTextBox.Text.Length < "8" Then
            RadLabelError.ForeColor = Color.Red
            RadLabelError.Text = "Password must be 8 Charecters!"