Public Function Login(ByVal username As String, ByVal password As String) As String
            Dim role As String
            If cnn.State = ConnectionState.Open Then
                cnn.Close()
            End If
            Try
                Dim strCom As String = "select Jabatan from tblUser where Username='" + username + "' and Password='" + password + "'"
                cnn.ConnectionString = CnnStr
                cnn.Open()
                Dim Comm As New OleDbCommand(strCom, cnn)
                Dim dr As OleDbDataReader = Comm.ExecuteReader
                If dr.Read Then
                    role = dr(0).ToString
                    Return role
                End If
                cnn.Close()

            Catch ex As Exception
                Return ex.ToString
            Finally
            End Try

        End Function

        Public Function getMenu(ByVal jabatan As String) As List(Of String)
            Dim menu As List(Of String)
            If cnn.State = ConnectionState.Open Then
                cnn.Close()
            End If
            Try
                Dim strCommand As String = "select Menu from tblJabatan where JabatanName='" + jabatan + "'"
                Dim Comm As New OleDbCommand(strCommand, cnn)
                Dim dr As OleDbDataReader = Comm.ExecuteReader
                cnn.ConnectionString = CnnStr
                cnn.Open()
                If dr.Read Then
                    menu.Add(dr("Menu").ToString)
                    Return menu
                End If
                cnn.Close()
            Catch er As OleDb.OleDbException


            Catch ex As Exception

            Finally
            End Try
        End Function