Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim conn As New OracleConnection
        conn.ConnectionString = _
        "Data Source=oracle;User Id=REPOS_OWNER;Password=password;"
        conn.Open()
        Dim parmuser As New OracleParameter
        parmuser.OracleDbType = OracleDbType.Char
        parmuser.Value = TxtUsername.Text
        Dim parmpass As New OracleParameter
        parmpass.OracleDbType = OracleDbType.Char
        parmpass.Value = TxtPassword.Text

        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd = New OracleCommand("select login_id,password from s_pengguna where login_id ='" & TxtUsername.Text & "' and password ='" & TxtPassword.Text & "'", conn)
        cmd.CommandType = CommandType.Text

        Dim dr As OracleDataReader

        dr = cmd.ExecuteReader()
        If dr.Read() Then

            TxtUsername.Text = dr("login_id")
            TxtPassword.Text = dr("password")
            MsgBox("Access Allowed")

            Dialog1.Show()

            
      
            'ElseIf TxtUsername.Text = dr("login_id") Then
            '  MsgBox("Wrong Username")

            ' ElseIf TxtPassword.Text = dr("password") Then

            ' MsgBox("Wrong Password")

        Else

            MsgBox("Wrong Username and password")

          

        End If
        
    End Sub