Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
Call DatabaseConnection()
CMD = New SqlCommand("SELECT * FROM UserAplikasi WHERE username = '" + txtUsername.Text + "' AND password = '" + txtUsername.Text + "'", CONN)
RD = CMD.ExecuteReader
If RD.HasRows = True Then
ElseIf RD.Item("HakAkses").ToString = "administrator" Then
    Me.Hide()
    FormMenuUtama.MenuStripFormUtama.Items("HOME").Enabled = True
    FormMenuUtama.MenuStripFormUtama.Items("ORDERPLAN").Enabled = True
    FormMenuUtama.MenuStripFormUtama.Items("FINANCE").Enabled = True
    FormMenuUtama.MenuStripFormUtama.Items("BILLING").Enabled = True
    RD.Close()
ElseIf RD.Item("HakAkses").ToString = "orderplan" Then
    Me.Hide()
    FormMenuUtama.MenuStripFormUtama.Items("HOME").Enabled = True
    FormMenuUtama.MenuStripFormUtama.Items("ORDERPLAN").Enabled = True
    FormMenuUtama.MenuStripFormUtama.Items("FINANCE").Enabled = False
    FormMenuUtama.MenuStripFormUtama.Items("BILLING").Enabled = False
    RD.Close()
ElseIf MsgBox("Username atau Password yang anda masukan salah!") Then
    CONN.Close()
End If